summaryrefslogtreecommitdiff
path: root/module/rnrs/exceptions.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/rnrs/exceptions.scm')
-rw-r--r--module/rnrs/exceptions.scm20
1 files changed, 2 insertions, 18 deletions
diff --git a/module/rnrs/exceptions.scm b/module/rnrs/exceptions.scm
index 68797b27f..862a0f7dc 100644
--- a/module/rnrs/exceptions.scm
+++ b/module/rnrs/exceptions.scm
@@ -1,6 +1,6 @@
;;; exceptions.scm --- The R6RS exceptions library
-;; Copyright (C) 2010, 2011, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2010, 2011, 2013, 2020 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -23,20 +23,4 @@
(rnrs control (6))
(rnrs conditions (6))
(rename (ice-9 exceptions)
- (raise-exception raise)))
-
- (define-syntax guard0
- (syntax-rules ()
- ((_ (variable cond-clause ...) . body)
- (call/cc (lambda (continuation)
- (with-exception-handler
- (lambda (variable)
- (continuation (cond cond-clause ...)))
- (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)))))
+ (raise-exception raise))))