From d656e64b6815678b87de402485cdec5222bce88b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 17 Nov 2018 08:46:11 -0800
Subject: copy: call copy-fun for functions.

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

* txr.1: Documented.
---
 lib.c | 2 ++
 txr.1 | 6 ++++++
 2 files changed, 8 insertions(+)

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 ).
-- 
cgit v1.2.3