Bugfix: split and partition again.

* lib.c (partition_split_common): nullify indices after
calling function, because function can put out an empty
sequence of non-list type. Use "not sequence" test
rather than "atom" on final index list, so that
vectors and strings can specify indices, as documented.

1 files changed, 3 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index 26f3cd9e..d0f3ef3f 100644
--- a/lib.c
+++ b/lib.c
@@ -1932,7 +1932,6 @@ static val split_func(val env, val lcons)
 static val partition_split_common(val seq, val indices, val partition_p)
 {
   seq = nullify(seq);
-  indices = nullify(indices);
 
   if (!seq)
     return nil;
@@ -1940,10 +1939,12 @@ static val partition_split_common(val seq, val indices, val partition_p)
   if (functionp(indices))
     indices = funcall1(indices, seq);
 
+  indices = nullify(indices);
+
   if (!indices)
     return cons(seq, nil);
 
-  if (atom(indices))
+  if (!seqp(indices))
     indices = cons(indices, nil);
 
   return make_lazy_cons(func_f1(cons(seq, cons(indices, zero)),