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

guard expressions now re-raise unhandled conditions using 

raise-continuable (as per the R6RS errata page, part 7.1)
This commit is contained in:
Abdulaziz Ghuloum 2008-07-20 02:51:14 -07:00
parent 78d9fa1f42
commit 59b9d28001
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1544 1545

2
scheme/psyntax.expander.ss
View File

@ -1328,7 +1328,7 @@
(syntax-match x* (else) (syntax-match x* (else)
[() [()
(let ([g (gensym)]) (let ([g (gensym)])
(values `(,g (lambda () (raise ,con))) g))] (values `(,g (lambda () (raise-continuable ,con))) g))]
[([else e e* ...]) [([else e e* ...])
(values `(begin ,e ,@e*) #f)] (values `(begin ,e ,@e*) #f)]
[(cls . cls*) [(cls . cls*)