diff --git a/scheme/last-revision b/scheme/last-revision index df9d396..47702a2 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1544 +1545 diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index ea7ca09..fe0322f 100644 --- a/scheme/psyntax.expander.ss +++ b/scheme/psyntax.expander.ss @@ -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*)