summaryrefslogtreecommitdiff
path: root/module/language/tree-il.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-11 16:11:37 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-11 16:58:36 +0200
commit2bcf97a64373e96c89706c42f0ddd4e2860b537a (patch)
tree19450bd12a75e7bec897184970647e3e646d6094 /module/language/tree-il.scm
parent38030bdf5dbe024a84ceb7ec92971840ab4431d4 (diff)
downloadguile-2bcf97a64373e96c89706c42f0ddd4e2860b537a.tar.gz
unparse the tag of a prompt
* module/language/tree-il.scm (unparse-tree-il): Properly unparse the tag of a prompt.
Diffstat (limited to 'module/language/tree-il.scm')
-rw-r--r--module/language/tree-il.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm
index c268effac..6811734b7 100644
--- a/module/language/tree-il.scm
+++ b/module/language/tree-il.scm
@@ -321,7 +321,7 @@
`(dynref ,(unparse-tree-il fluid) ,(unparse-tree-il exp)))
((<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 ,(unparse-tree-il tag) ,(map unparse-tree-il args)