X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/f82f62944a4e605d385f40b5a4a01e19677bc0b3..8006d2d6eb8eee0fd08a6d29cf48484f64552c29:/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 2fe0d924e..a9ac3e0cd 100644
--- a/module/language/ecmascript/compile-tree-il.scm
+++ b/module/language/ecmascript/compile-tree-il.scm
@@ -83,12 +83,14 @@
                     (-> (lexical 'return tag))))
       (-> (let '(return) (list tag)
                (list (-> (primcall 'make-prompt-tag)))
-               (-> (prompt (current-return-tag)
+               (-> (prompt #t
+                           (current-return-tag)
                            (body-thunk)
                            (let ((val (gensym "val")))
-                             (-> (lambda-case
-                                  `(((k val) #f #f #f () (,(gensym) ,val))
-                                    ,(-> (lexical 'val val)))))))))))))
+                             (-> (lambda '()
+                                   (-> (lambda-case
+                                        `(((k val) #f #f #f () (,(gensym) ,val))
+                                          ,(-> (lexical 'val val)))))))))))))))
 
 (define (comp x e)
   (let ((l (location x)))