copy: call copy-fun for functions.

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

* txr.1: Documented.

1 files changed, 2 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);