buffers: implement copy-buf.

* buf.c (copy_buf): New function.
(buf_init): Register copy-buf intrinsic.

* buf.h (copy_buf): Declared.

* lib.c (copy): Handle BUF via copy_buf.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 4070ce4e..f86576b9 100644
--- a/lib.c
+++ b/lib.c
@@ -9939,6 +9939,8 @@ val copy(val seq)
     return copy_str(seq);
   case VEC:
     return copy_vec(seq);
+  case BUF:
+    return copy_buf(seq);
   case COBJ:
     if (seq->co.cls == hash_s)
       return copy_hash(seq);