From e6c34ced9ff9abade85c0160a26f43513a13d631 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Mon, 7 Feb 2022 09:31:30 +0000
Subject: lib: fix return value of separate for nil seq.

* lib.c (separate): Return (list nil nil) instead of just nil
when the sequence parameter is nil, as is documented.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib.c b/lib.c
index 2f3f6603..51092c36 100644
--- a/lib.c
+++ b/lib.c
@@ -3153,7 +3153,7 @@ val separate(val pred, val seq_in, val keyfun_in)
 
   switch (type(seq_in)) {
   case NIL:
-    return nil;
+    return cons(nil, cons(nil, nil));
   case CONS:
   case LCONS:
   case COBJ:
-- 
cgit v1.2.3