ffi: new carray-replace function.

Thanks to this (set [ca from..to] list) works.

* ffi.c (carray_replace): New function.
(ffi_init): Register carray-replace intrinsic.

* ffi.h (carray_replace): Declared.

* ffi.c (replace): Hook in carray_replace.

* txr.1: Mention carray under replace, and document
carray-replace.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 4c345615..43d429df 100644
--- a/lib.c
+++ b/lib.c
@@ -9263,6 +9263,10 @@ val replace(val seq, val items, val from, val to)
     return replace_str(seq, items, from, to);
   case VEC:
     return replace_vec(seq, items, from, to);
+  case COBJ:
+    if (seq->co.cls == carray_s)
+      return carray_replace(seq, items, from, to);
+    /* fallthrough */
   default:
     type_mismatch(lit("replace: ~s is not a sequence"), seq, nao);
   }