From ce6ada3b340607177bec7cbfa2b5eaa47ebb07a4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 4 Nov 2018 22:10:15 -0800
Subject: 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.
---
 lib.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.c')

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