copy: call copy-fun for functions.

* lib.c (copy): Handle FUN type through copy_fun.

* txr.1: Documented.

2 files changed, 8 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 69712f00..3b9262b1 100644
--- a/lib.c
+++ b/lib.c
@@ -9924,6 +9924,8 @@ val copy(val seq)
     return copy_vec(seq);
   case BUF:
     return copy_buf(seq);
+  case FUN:
+    return copy_fun(seq);
   case COBJ:
     if (seq->co.cls == hash_s)
       return copy_hash(seq);
diff --git a/txr.1 b/txr.1
index 4620b368..4bd7d2ff 100644
--- a/txr.1
+++ b/txr.1
@@ -26268,6 +26268,12 @@ is a structure, it returns
 .cble
 If
 .meta object
+is a function, it returns
+.cblk
+.meti (copy-fun << object ).
+.cble
+If
+.meta object
 is a buffer, it returns
 .cblk
 .meti (copy-buf << object ).