mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Replace values object with values passed as continuation arguments

Browse source
This commit is contained in:
Ian Price 2015-06-06 10:14:36 +01:00
parent ce1cc2706c
commit d57dc85fa8
4 changed files with 17 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/language/js-il/compile-javascript.scm
View file

@ -42,8 +42,8 @@
(($ il:var id exp)
(make-var (rename id) (compile-exp exp)))
(($ il:continue k exp)
(make-return (make-call (name->id k) (list (compile-exp exp)))))
(($ il:continue k exps)
(make-return (make-call (name->id k) (map compile-exp exps))))
(($ il:branch test then else)
(make-conditional (make-call (make-refine *scheme* (make-const "is_true"))
@ -72,11 +72,6 @@
(make-call (make-refine *scheme* (make-const "Closure"))
(list (name->id label) (make-const nfree)))))
(($ il:values vals)
(make-new
(make-call (make-refine *scheme* (make-const "Values"))
(map name->id vals))))
(($ il:id name)
(name->id name))))