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