[Guile-commits] GNU Guile branch, master, updated. v2.1.0-133-g5270bb5

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=5270bb5bdbc4a036b9d4f73aa378b291f90ae04a

The branch, master has been updated
       via  5270bb5bdbc4a036b9d4f73aa378b291f90ae04a (commit)
      from  6dce942c46494460369b8a93d3c657e1f6e57fed (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5270bb5bdbc4a036b9d4f73aa378b291f90ae04a
Author: Mark H Weaver <address@hidden>
Date:   Wed Aug 7 03:13:11 2013 -0400

    Adapt ecmascript compiler to recent tree-il changes for prompts.
    
    * module/language/ecmascript/compile-tree-il.scm (with-return-prompt):
      Adapt to the changes in 178a40928ab5221f6ce57c5af1067abe30a342b3.
      Prompt tree-il nodes now contain an explicit 'escape-only?' flag, and
      the body and handler are now both lambdas.

-----------------------------------------------------------------------

Summary of changes:
 module/language/ecmascript/compile-tree-il.scm |   15 ++++++++++-----
 1 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/module/language/ecmascript/compile-tree-il.scm 
b/module/language/ecmascript/compile-tree-il.scm
index 2fe0d92..5ad958d 100644
--- a/module/language/ecmascript/compile-tree-il.scm
+++ b/module/language/ecmascript/compile-tree-il.scm
@@ -83,12 +83,17 @@
                     (-> (lexical 'return tag))))
       (-> (let '(return) (list tag)
                (list (-> (primcall 'make-prompt-tag)))
-               (-> (prompt (current-return-tag)
-                           (body-thunk)
+               (-> (prompt #t
+                           (current-return-tag)
+                           (-> (lambda '()
+                                 (-> (lambda-case
+                                      `((() #f #f #f () ())
+                                        ,(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)))


hooks/post-receive
-- 
GNU Guile