New function: copy-cptr.

* eval.c (eval_init): copy-cptr intrinsic registered.

* lib.c (copy_cptr): New function.
(copy): Use copy_cptr for CPTR objects.

* lib.h (copy_cptr): Declared.

* tests/017/ffi-misc.tl: New test cases.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index a8c2b9b9..972f97d2 100644
--- a/lib.h
+++ b/lib.h
@@ -1136,6 +1136,7 @@ val cptr_buf(val buf, val type_sym);
 val cptr_zap(val cptr);
 val cptr_free(val cptr);
 val cptr_cast(val to_type, val cptr);
+val copy_cptr(val cptr);
 val int_cptr(val cptr);
 mem_t *cptr_get(val cptr);
 mem_t *cptr_handle(val cobj, val type_sym, val self);