diff options
author | Ian Price <ianprice90@googlemail.com> | 2013-04-06 03:06:25 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-06 15:40:19 +0200 |
commit | 4ad329cbcaeef603d047df5dd226fb17f0b81483 (patch) | |
tree | ead859906a6522ca6e07fcd70d4114c186e38739 /module/sxml | |
parent | 47ed3ca43aa32acf1550c0ff9696b1b51f43e236 (diff) | |
download | guile-4ad329cbcaeef603d047df5dd226fb17f0b81483.tar.gz |
Remove duplicate definitions of `call/ec' and `let/ec'.
* module/language/tree-il/peval.scm (let/ec): Remove. Import
(ice-9 control).
* module/sxml/match.scm (%call/ec-prompt, call/ec, let/ec):
Remove. Import (ice-9 control).
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'module/sxml')
-rw-r--r-- | module/sxml/match.scm | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/module/sxml/match.scm b/module/sxml/match.scm index 84cbce344..2cfe64323 100644 --- a/module/sxml/match.scm +++ b/module/sxml/match.scm @@ -20,7 +20,8 @@ sxml-match-let sxml-match-let*) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-11)) + #:use-module (srfi srfi-11) + #:use-module (ice-9 control)) ;;; Commentary: @@ -46,22 +47,6 @@ (define-syntax-rule (void) *unspecified*) -(define %call/ec-prompt - (make-prompt-tag)) - -(define-syntax-rule (call/ec proc) - ;; aka. `call-with-escape-continuation' - (call-with-prompt %call/ec-prompt - (lambda () - (proc (lambda args - (apply abort-to-prompt - %call/ec-prompt args)))) - (lambda (_ . args) - (apply values args)))) - -(define-syntax-rule (let/ec cont body ...) - (call/ec (lambda (cont) body ...))) - (define (raise-syntax-error x msg obj sub) (throw 'sxml-match-error x msg obj sub)) |