cwebber pushed a commit to branch compile-to-js-merge
in repository guile.
commit b631576f13677e7834a9604ee6b664f0ff2acc06
Author: Ian Price <[email protected]>
AuthorDate: Tue Jun 23 15:52:42 2015 +0100
Fixup binop unparsing
---
module/language/javascript.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/language/javascript.scm b/module/language/javascript.scm
index 7486213..741282a 100644
--- a/module/language/javascript.scm
+++ b/module/language/javascript.scm
@@ -85,7 +85,7 @@
(($ var id exp)
`(var ,id ,(unparse-js exp)))
(($ binop op arg1 arg2)
- `(binop ,op ,arg1 ,arg2))))
+ `(binop ,op ,(unparse-js arg1) ,(unparse-js arg2)))))
(define (print-exp exp port)
(match exp
