From 853579755dcf7cbe32b33d6be3d862cf48ff371d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 26 Apr 2007 21:39:36 +0000 Subject: [PATCH] svn: r6052 --- collects/mzlib/list.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/list.ss b/collects/mzlib/list.ss index fbad313f93..49d62566c7 100644 --- a/collects/mzlib/list.ss +++ b/collects/mzlib/list.ss @@ -244,7 +244,7 @@ [else (let ([a (car l)]) #,(case (syntax-e #'mode) [(member) #'(if (f a) l (loop (cdr l)))] - [(find) #'(if (f a) (car l) (loop (cdr l)))] + [(find) #'(if (f a) a (loop (cdr l)))] [(assoc) #'(if (pair? a) (if (f (car a)) a (loop (cdr l))) (raise-mismatch-error