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

View File

@ -1 +1 @@
1544
1545

View File

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