fixed a bug in the definition of andmap in match, and made it export

match+ and trace-match+.
This commit is contained in:
Abdulaziz Ghuloum 2008-11-25 04:21:51 -05:00
parent 5ba29fe3aa
commit 55974d44fa
2 changed files with 3 additions and 2 deletions

View File

@ -95,6 +95,7 @@
(library (match)
(export match trace-match
match+ trace-match+
match/lexical-context trace-match/lexical-context
match-equality-test
guard ... quasiquote unquote unquote-splicing)
@ -275,7 +276,7 @@
(define (f syn vars guards cdecls depth)
(define (andmap f ls)
(cond
((null? ls) #f)
((null? ls) #t)
((null? (cdr ls)) (f (car ls)))
(else (and (f (car ls)) (andmap f (cdr ls))))))
(syntax-case syn (unquote)

View File

@ -1 +1 @@
1690
1691