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.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/module/language/scheme/decompile-tree-il.scm b/module/language/scheme/decompile-tree-il.scm
index dca969f92..74778b4ca 100644
--- a/module/language/scheme/decompile-tree-il.scm
+++ b/module/language/scheme/decompile-tree-il.scm
@@ -435,7 +435,7 @@
((<prompt> tag body handler)
`(call-with-prompt
,(recurse tag)
- (lambda () ,@(recurse-body body))
+ ,(recurse body)
,(recurse handler)))
@@ -746,7 +746,6 @@
((<prompt> tag body handler)
(primitive 'call-with-prompt)
- (primitive 'lambda)
(recurse tag) (recurse body) (recurse handler))
((<abort> tag args tail)