carray: allow t and floating 0 in sub and replace.

* ffi.c (carray_sub, carray_replace): Allow t as from or to value, and
also implement the zero's end-of-range floating behavior.

1 files changed, 15 insertions, 10 deletions

diff --git a/ffi.c b/ffi.c
index 9d44f0eb..6428bf91 100644
--- a/ffi.c
+++ b/ffi.c
@@ -5732,23 +5732,24 @@ val carray_sub(val carray, val from, val to)
 
   if (null_or_missing_p(from))
     from = zero;
-
-  if (null_or_missing_p(to)) {
+  else if (from == t)
+    from = len;
+  else if (minusp(from)) {
     if (ln < 0)
       goto nolen;
-    to = len;
+    from = plus(from, len);
+    if (to == zero)
+      to = len;
   }
 
-  if (minusp(to)) {
+  if (null_or_missing_p(to) || to == t) {
     if (ln < 0)
       goto nolen;
-    to = plus(to, len);
-  }
-
-  if (minusp(from)) {
+    to = len;
+  } else if (minusp(to)) {
     if (ln < 0)
       goto nolen;
-    from = plus(from, len);
+    to = plus(to, len);
   }
 
   {
@@ -5786,6 +5787,8 @@ val carray_replace(val carray, val values, val from, val to)
 
   if (null_or_missing_p(from)) {
     from = zero;
+  } else if (from == t) {
+    from = len;
   } else if (!integerp(from)) {
     seq_iter_t wh_iter, item_iter;
     val wh, item;
@@ -5810,9 +5813,11 @@ val carray_replace(val carray, val values, val from, val to)
     if (ln < 0)
       goto nolen;
     from = plus(from, len);
+    if (to == zero)
+      to = len;
   }
 
-  if (null_or_missing_p(to)) {
+  if (null_or_missing_p(to) || to == t) {
     if (ln < 0)
       goto nolen;
     to = len;