diff options
Diffstat (limited to 'module/rnrs/exceptions.scm')
-rw-r--r-- | module/rnrs/exceptions.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/module/rnrs/exceptions.scm b/module/rnrs/exceptions.scm index cd5bacf42..ff4049ba0 100644 --- a/module/rnrs/exceptions.scm +++ b/module/rnrs/exceptions.scm @@ -51,17 +51,17 @@ (define-syntax guard0 (syntax-rules () - ((_ (variable cond-clause ...) body) + ((_ (variable cond-clause ...) . body) (call/cc (lambda (continuation) (with-exception-handler (lambda (variable) (continuation (cond cond-clause ...))) - (lambda () body))))))) + (lambda () . body))))))) (define-syntax guard (syntax-rules (else) - ((_ (variable cond-clause ... . ((else else-clause ...))) body) - (guard0 (variable cond-clause ... (else else-clause ...)) body)) - ((_ (variable cond-clause ...) body) - (guard0 (variable cond-clause ... (else (raise variable))) body)))) + ((_ (variable cond-clause ... . ((else else-clause ...))) . body) + (guard0 (variable cond-clause ... (else else-clause ...)) . body)) + ((_ (variable cond-clause ...) . body) + (guard0 (variable cond-clause ... (else (raise variable))) . body)))) ) |