Fixes bug 206839: map not failing with invalid arguments

2008-03-25 21:03:26 -04:00
parent 48f7c88e2d
commit c2e20a3a68
2 changed files with 3 additions and 2 deletions
@@ -606,7 +606,8 @@
            [(null? ls)
             (if (andmap null? ls*)
                 '()
-                 (die who "length mismatch"))])])))
+                 (die who "length mismatch"))]
+            [else (die who "not a list" ls)])])))

  (module (for-each)
    (define who 'for-each)
@@ -1 +1 @@
-1429
+1430