summaryrefslogtreecommitdiff
path: root/module/language/scheme/decompile-tree-il.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/scheme/decompile-tree-il.scm')
-rw-r--r--module/language/scheme/decompile-tree-il.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/module/language/scheme/decompile-tree-il.scm b/module/language/scheme/decompile-tree-il.scm
index 74778b4ca..2decd9749 100644
--- a/module/language/scheme/decompile-tree-il.scm
+++ b/module/language/scheme/decompile-tree-il.scm
@@ -432,10 +432,12 @@
`(call-with-values (lambda () ,@(recurse-body exp))
,(recurse (make-lambda #f '() body))))
- ((<prompt> tag body handler)
+ ((<prompt> escape-only? tag body handler)
`(call-with-prompt
,(recurse tag)
- ,(recurse body)
+ ,(if escape-only?
+ `(lambda () ,(recurse body))
+ (recurse body))
,(recurse handler)))