mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

tree-il->scheme fix

Browse source 
* module/language/tree-il.scm (tree-il->scheme): Fix <prompt> to Scheme
  serialization.
This commit is contained in:
Andy Wingo 2011-03-27 14:44:20 +02:00
parent 8e9af85412
commit 62f528e929
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/language/tree-il.scm
View file

@ -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)))