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, 1 insertions, 0 deletions

diff --git a/buf.h b/buf.h
index cf394ff0..0086f6f0 100644
--- a/buf.h
+++ b/buf.h
@@ -30,6 +30,7 @@ val bufp(val object);
 val make_borrowed_buf(val len, mem_t *data);
 val init_borrowed_buf(obj_t *buf, val len, mem_t *data);
 val make_duplicate_buf(val len, mem_t *data);
+val copy_buf(val buf);
 val buf_trim(val buf);
 val buf_set_length(val obj, val len, val init_val);
 val length_buf(val buf);