mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

unparse the tag of a prompt

Browse source 
* module/language/tree-il.scm (unparse-tree-il): Properly unparse the
  tag of a prompt.
This commit is contained in:
Andy Wingo 2010-06-11 16:11:37 +02:00
parent 38030bdf5d
commit 2bcf97a643
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -321,7 +321,7 @@
`(dynref ,(unparse-tree-il fluid) ,(unparse-tree-il exp))) `(dynref ,(unparse-tree-il fluid) ,(unparse-tree-il exp)))
((<prompt> tag body handler) ((<prompt> tag body handler)
`(prompt ,tag ,(unparse-tree-il body) ,(unparse-tree-il handler))) `(prompt ,(unparse-tree-il tag) ,(unparse-tree-il body) ,(unparse-tree-il handler)))
((<abort> tag args tail) ((<abort> tag args tail)
`(abort ,(unparse-tree-il tag) ,(map unparse-tree-il args) `(abort ,(unparse-tree-il tag) ,(map unparse-tree-il args)