.

original commit: 489c4d469060e72a188a1c46a43add772e1bccb3
2000-10-31 22:09:51 +00:00 · 2000-10-31 22:09:51 +00:00 · 4c89ff8257
commit 4c89ff8257
parent 545f7b85ec
1 changed files with 3 additions and 1 deletions
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@ -85,7 +85,9 @@
 			 (if (null? (cdr l)) 
 			     (car l) 
 			     (until (map2 l))))])
-	 (until (split alox null))))))
+	 (if (null? alox)
+	     null
+	     (until (split alox null)))))))

  (define ignore-errors
    (polymorphic