guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. v2.1.0-139-g1e5c320


From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-139-g1e5c320
Date: Sun, 11 Aug 2013 21:19:53 +0000

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=1e5c32054e002e2c12ba0188b58b7d26432c3495

The branch, master has been updated
       via  1e5c32054e002e2c12ba0188b58b7d26432c3495 (commit)
      from  af95414f1dcbacf7fd5311a3ee89a799b20fd17b (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 1e5c32054e002e2c12ba0188b58b7d26432c3495
Author: Mark H Weaver <address@hidden>
Date:   Sun Aug 11 17:18:09 2013 -0400

    Adapt ecmascript compiler to tree-il prompt changes, again.
    
    * module/language/ecmascript/compile-tree-il.scm (with-return-prompt):
      The body of an escape-only prompt is no longer a thunk.  Adapt.

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

Summary of changes:
 module/language/ecmascript/compile-tree-il.scm |    5 +----
 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 5ad958d..a9ac3e0 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


hooks/post-receive
-- 
GNU Guile



reply via email to

[Prev in Thread] Current Thread [Next in Thread]