summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-03-27 14:44:20 +0200
committerAndy Wingo <wingo@pobox.com>2011-03-27 14:44:20 +0200
commit62f528e929368ddce77f550168c229177793d854 (patch)
treed95eb7375dd274a1ea13f0f3a22e87a5a0042f92
parent8e9af8541253577c15c94455ef31c762071aae64 (diff)
downloadguile-62f528e929368ddce77f550168c229177793d854.tar.gz
tree-il->scheme fix
* module/language/tree-il.scm (tree-il->scheme): Fix <prompt> to Scheme serialization.
-rw-r--r--module/language/tree-il.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm
index 5fd4c125a..221cf264d 100644
--- a/module/language/tree-il.scm
+++ b/module/language/tree-il.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010, 2011 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
@@ -471,8 +471,9 @@
`(fluid-set! ,(tree-il->scheme fluid) ,(tree-il->scheme exp)))
((<prompt> tag body handler)
- `((@ (ice-9 control) prompt)
- ,(tree-il->scheme tag) (lambda () ,(tree-il->scheme body))
+ `(call-with-prompt
+ ,(tree-il->scheme tag)
+ (lambda () ,(tree-il->scheme body))
,(tree-il->scheme handler)))