From ca7586e09f437581583d087d04e3bd9e8d86130c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 16 Mar 2008 15:31:16 +0000
Subject: [PATCH] typo in last commit

svn: r8991
---
 collects/srfi/1/util.ss | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/collects/srfi/1/util.ss b/collects/srfi/1/util.ss
index 0d231062b1..9515a0ba01 100644
--- a/collects/srfi/1/util.ss
+++ b/collects/srfi/1/util.ss
@@ -34,8 +34,7 @@
 
 #lang mzscheme
 
-(require srfi/optional
-         "predicate.ss"
+(require "predicate.ss"
          "selector.ss")
 
 (provide %cdrs
@@ -82,7 +81,7 @@
 ;; However, if any of the lists is empty, just abort and return [() ()].
 
 (define (%cars+cdrs lists)
-  (let/ec
+  (let/ec abort
    (let recur ((lists lists))
      (if (pair? lists)
        (let-values ([(list other-lists) (car+cdr lists)])