From 4c89ff8257b4c621665045ae7cfea5dc2798c928 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 31 Oct 2000 22:09:51 +0000
Subject: [PATCH] .

original commit: 489c4d469060e72a188a1c46a43add772e1bccb3
---
 collects/mzlib/functior.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index 8780ba7..9a3863e 100644
--- 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