* lib.c (flatten): Semantics change. The flatten function

should not map nil -> (nil), but nil -> nil.

1 files changed, 3 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index e82311b1..11fd488a 100644
--- a/lib.c
+++ b/lib.c
@@ -397,6 +397,9 @@ val none_satisfy(val list, val pred, val key)
 
 val flatten(val list)
 {
+  if (list == nil)
+    return nil;
+
   if (atom(list))
     return cons(list, nil);