Bugfix: split and partition functions.

When the index argument is a function and it returns
an empty list, the functions behave incorrectly.

* lib.c (partition_split_common): Exchange order
of two operations. The handling of an empty indices list must
be done after testing for and calling the function which can
potentially produce that value.

1 files changed, 3 insertions, 3 deletions

diff --git a/lib.c b/lib.c
index 30636c66..751d8a3b 100644
--- a/lib.c
+++ b/lib.c
@@ -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);