From d57dc85fa84a380c3deefff098069fcab90d7f2d Mon Sep 17 00:00:00 2001 From: Ian Price Date: Sat, 6 Jun 2015 10:14:36 +0100 Subject: Replace values object with values passed as continuation arguments --- module/language/js-il/compile-javascript.scm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'module/language/js-il/compile-javascript.scm') 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)))) -- cgit v1.2.3