diff options
author | Andy Wingo <wingo@pobox.com> | 2011-03-27 14:44:20 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-03-27 14:44:20 +0200 |
commit | 62f528e929368ddce77f550168c229177793d854 (patch) | |
tree | d95eb7375dd274a1ea13f0f3a22e87a5a0042f92 | |
parent | 8e9af8541253577c15c94455ef31c762071aae64 (diff) | |
download | guile-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.scm | 7 |
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))) |