conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/match.ss
View File

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

2
scheme/last-revision
View File

@ -1 +1 @@
1690 1691