From 59b9d28001e90340030b686a1082399e2034f2b4 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sun, 20 Jul 2008 02:51:14 -0700 Subject: [PATCH] guard expressions now re-raise unhandled conditions using raise-continuable (as per the R6RS errata page, part 7.1) --- scheme/last-revision | 2 +- scheme/psyntax.expander.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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*)