summaryrefslogtreecommitdiff
path: root/module/sxml
diff options
context:
space:
mode:
authorIan Price <ianprice90@googlemail.com>2013-04-06 03:06:25 +0100
committerLudovic Courtès <ludo@gnu.org>2013-04-06 15:40:19 +0200
commit4ad329cbcaeef603d047df5dd226fb17f0b81483 (patch)
treeead859906a6522ca6e07fcd70d4114c186e38739 /module/sxml
parent47ed3ca43aa32acf1550c0ff9696b1b51f43e236 (diff)
downloadguile-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.scm19
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))