suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r6052

Browse Source
This commit is contained in:
Eli Barzilay 2007-04-26 21:39:36 +00:00
parent ade829139a
commit 853579755d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/list.ss
View File

@ -244,7 +244,7 @@
[else (let ([a (car l)]) [else (let ([a (car l)])
#,(case (syntax-e #'mode) #,(case (syntax-e #'mode)
[(member) #'(if (f a) l (loop (cdr l)))] [(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) [(assoc) #'(if (pair? a)
(if (f (car a)) a (loop (cdr l))) (if (f (car a)) a (loop (cdr l)))
(raise-mismatch-error (raise-mismatch-error