Apply partition/split bugfix to partition*.

* lib.c (partition_star): The same issues that were addressed
in TXR 126 in 2015-11-29 commits and 2015-11-24 commits
must also be addressed here.

1 files changed, 4 insertions, 4 deletions

diff --git a/lib.c b/lib.c
index 34ecbb77..db10a056 100644
--- a/lib.c
+++ b/lib.c
@@ -2012,16 +2012,16 @@ val partition_star(val seq, val indices)
   if (!seq)
     return nil;
 
-  if (!indices)
-    return cons(seq, nil);
-
   if (functionp(indices))
     indices = funcall1(indices, seq);
 
+  if (!indices)
+    return cons(seq, nil);
+
   if (indices == zero)
     return nullify(rest(seq));
 
-  if (atom(indices)) {
+  if (!seqp(indices)) {
     indices = cons(indices, nil);
   } else {
     while (eql(car(indices), base)) {