mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

Adapt ecmascript compiler to recent tree-il changes for prompts.

Browse source 
* module/language/ecmascript/compile-tree-il.scm (with-return-prompt):
  Adapt to the changes in 178a40928a.
  Prompt tree-il nodes now contain an explicit 'escape-only?' flag, and
  the body and handler are now both lambdas.
This commit is contained in:
Mark H Weaver 2013-08-07 03:13:11 -04:00
parent 6dce942c46
commit 5270bb5bdb
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
module/language/ecmascript/compile-tree-il.scm
View file

@ -83,12 +83,17 @@
(-> (lexical 'return tag)))) (-> (lexical 'return tag))))
(-> (let '(return) (list tag) (-> (let '(return) (list tag)
(list (-> (primcall 'make-prompt-tag))) (list (-> (primcall 'make-prompt-tag)))
(-> (prompt (current-return-tag) (-> (prompt #t
(body-thunk) (current-return-tag)
(-> (lambda '()
(-> (lambda-case
`((() #f #f #f () ())
,(body-thunk))))))
(let ((val (gensym "val"))) (let ((val (gensym "val")))
(-> (lambda-case (-> (lambda '()
`(((k val) #f #f #f () (,(gensym) ,val)) (-> (lambda-case
,(-> (lexical 'val val))))))))))))) `(((k val) #f #f #f () (,(gensym) ,val))
,(-> (lexical 'val val)))))))))))))))
(define (comp x e) (define (comp x e)
(let ((l (location x))) (let ((l (location x)))