Optimizer support for logtest and logbit?

[bpt/guile.git] / module / language / ecmascript / compile-tree-il.scm

diff --git a/module/language/ecmascript/compile-tree-il.scm b/module/language/ecmascript/compile-tree-il.scm
index 5ad958d..a9ac3e0 100644 (file)
--- 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