ffi: copy-carray, hooked into copy.

* ffi.c (copy_carray): New function
(ffi_init): Register copy-carray intrinsic.

* ffi.h (copy_carray): Declared.

* lib.c (copy): Call copy_array for carray objects.

* txr.1: Documented copy-carray and updated
copy description.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 07f733a7..ee7e8eeb 100644
--- a/lib.c
+++ b/lib.c
@@ -9131,6 +9131,8 @@ val copy(val seq)
       return copy_hash(seq);
     if (seq->co.cls == random_state_s)
       return make_random_state(seq, nil);
+    if (seq->co.cls == carray_s)
+      return copy_carray(seq);
     if (structp(seq))
       return copy_struct(seq);
     /* fallthrough */