diff options
Diffstat (limited to 'module/language/scheme/decompile-tree-il.scm')
-rw-r--r-- | module/language/scheme/decompile-tree-il.scm | 6 |
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))) |