diff options
author | Ian Price <ianprice90@googlemail.com> | 2015-06-06 10:14:36 +0100 |
---|---|---|
committer | Ian Price <ianprice90@googlemail.com> | 2015-06-18 04:14:41 +0100 |
commit | d57dc85fa84a380c3deefff098069fcab90d7f2d (patch) | |
tree | 6099e2826ce8114613232803f35d95a7a9292896 /module/language/js-il/compile-javascript.scm | |
parent | ce1cc2706c62e2e497a44d88465ae31e1f289aa4 (diff) | |
download | guile-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.scm | 9 |
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)))) |