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

fixed definitions of last clauses in cond and case macros.

This commit is contained in:
Abdulaziz Ghuloum 2009-04-06 16:36:07 +03:00
parent af46220d64
commit 0c96321f20
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1751 1752

4
scheme/psyntax.expander.ss
View File

@ -1031,7 +1031,7 @@
(lambda (e) (lambda (e)
(define (build-last cls) (define (build-last cls)
(syntax-match cls (else) (syntax-match cls (else)
((else e e* ...) `(begin ,e . ,e*)) ((else e e* ...) `(let () #f ,e . ,e*))
(_ (build-one cls '(if #f #f))))) (_ (build-one cls '(if #f #f)))))
(define (build-one cls k) (define (build-one cls k)
(syntax-match cls () (syntax-match cls ()
@ -1520,7 +1520,7 @@
(cond (cond
((null? cls*) ((null? cls*)
(syntax-match cls (else =>) (syntax-match cls (else =>)
((else e e* ...) `(begin ,e . ,e*)) ((else e e* ...) `(let () #f ,e . ,e*))
((e => p) `(let ((t ,e)) (if t (,p t)))) ((e => p) `(let ((t ,e)) (if t (,p t))))
((e) `(or ,e (if #f #f))) ((e) `(or ,e (if #f #f)))
((e e* ...) `(if ,e (begin . ,e*))) ((e e* ...) `(if ,e (begin . ,e*)))