summaryrefslogtreecommitdiff
path: root/module/language/js-il/compile-javascript.scm
diff options
context:
space:
mode:
authorIan Price <ianprice90@googlemail.com>2015-06-06 10:14:36 +0100
committerIan Price <ianprice90@googlemail.com>2015-06-18 04:14:41 +0100
commitd57dc85fa84a380c3deefff098069fcab90d7f2d (patch)
tree6099e2826ce8114613232803f35d95a7a9292896 /module/language/js-il/compile-javascript.scm
parentce1cc2706c62e2e497a44d88465ae31e1f289aa4 (diff)
downloadguile-d57dc85fa84a380c3deefff098069fcab90d7f2d.tar.gz
Replace values object with values passed as continuation arguments
Diffstat (limited to 'module/language/js-il/compile-javascript.scm')
-rw-r--r--module/language/js-il/compile-javascript.scm9
1 files changed, 2 insertions, 7 deletions
diff --git a/module/language/js-il/compile-javascript.scm b/module/language/js-il/compile-javascript.scm
index 21b6fc9c6..6fde3bae0 100644
--- a/module/language/js-il/compile-javascript.scm
+++ b/module/language/js-il/compile-javascript.scm
@@ -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))))