diff options
-rw-r--r-- | lib.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1936,12 +1936,12 @@ static val partition_split_common(val seq, val indices, val partition_p) if (!seq) return nil; - if (!indices) - return cons(seq, nil); - if (functionp(indices)) indices = funcall1(indices, seq); + if (!indices) + return cons(seq, nil); + if (atom(indices)) indices = cons(indices, nil); |