summaryrefslogtreecommitdiff
path: root/module/language/js-il/compile-javascript.scm
diff options
context:
space:
mode:
authorIan Price <ianprice90@googlemail.com>2015-06-07 17:00:48 +0100
committerIan Price <ianprice90@googlemail.com>2015-06-18 04:14:42 +0100
commitf8618a522fbaa732144548f4da556bbf8b2636e1 (patch)
tree3a150cc9e76c4c76d40ff4ef2afa90583efcdc6b /module/language/js-il/compile-javascript.scm
parent3b32d180b16c08bfd861879efbc90a7e9d323884 (diff)
downloadguile-f8618a522fbaa732144548f4da556bbf8b2636e1.tar.gz
conditional->branch
Diffstat (limited to 'module/language/js-il/compile-javascript.scm')
-rw-r--r--module/language/js-il/compile-javascript.scm8
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))