summaryrefslogtreecommitdiff
path: root/module/language/ecmascript/compile-tree-il.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/ecmascript/compile-tree-il.scm')
-rw-r--r--module/language/ecmascript/compile-tree-il.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/module/language/ecmascript/compile-tree-il.scm b/module/language/ecmascript/compile-tree-il.scm
index 5ad958d18..a9ac3e0cd 100644
--- a/module/language/ecmascript/compile-tree-il.scm
+++ b/module/language/ecmascript/compile-tree-il.scm
@@ -85,10 +85,7 @@
(list (-> (primcall 'make-prompt-tag)))
(-> (prompt #t
(current-return-tag)
- (-> (lambda '()
- (-> (lambda-case
- `((() #f #f #f () ())
- ,(body-thunk))))))
+ (body-thunk)
(let ((val (gensym "val")))
(-> (lambda '()
(-> (lambda-case