diff options
author | Ian Price <ianprice90@googlemail.com> | 2015-06-07 17:00:48 +0100 |
---|---|---|
committer | Ian Price <ianprice90@googlemail.com> | 2015-06-18 04:14:42 +0100 |
commit | f8618a522fbaa732144548f4da556bbf8b2636e1 (patch) | |
tree | 3a150cc9e76c4c76d40ff4ef2afa90583efcdc6b /module/language/js-il/compile-javascript.scm | |
parent | 3b32d180b16c08bfd861879efbc90a7e9d323884 (diff) | |
download | guile-f8618a522fbaa732144548f4da556bbf8b2636e1.tar.gz |
conditional->branch
Diffstat (limited to 'module/language/js-il/compile-javascript.scm')
-rw-r--r-- | module/language/js-il/compile-javascript.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/language/js-il/compile-javascript.scm b/module/language/js-il/compile-javascript.scm index a0427cc73..373d5a9d3 100644 --- a/module/language/js-il/compile-javascript.scm +++ b/module/language/js-il/compile-javascript.scm @@ -47,10 +47,10 @@ (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")) - (list (compile-exp test))) - (list (compile-exp then)) - (list (compile-exp else)))) + (make-branch (make-call (make-refine *scheme* (make-const "is_true")) + (list (compile-exp test))) + (list (compile-exp then)) + (list (compile-exp else)))) (($ il:const c) (compile-const c)) |