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 <[email protected]> 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
