partition* bugfix: incorrect behavior for 0.

lib.c (partition_star): In the special case that the indices
argument is given as the integer zero, the function wrongly
returned just the remaining piece of the sequence after zero,
rather than a list containing this piece.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index db10a056..6168bb52 100644
--- a/lib.c
+++ b/lib.c
@@ -2019,7 +2019,7 @@ val partition_star(val seq, val indices)
     return cons(seq, nil);
 
   if (indices == zero)
-    return nullify(rest(seq));
+    return cons(nullify(rest(seq)), nil);
 
   if (!seqp(indices)) {
     indices = cons(indices, nil);