mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Fixup binop unparsing

Browse source
This commit is contained in:
Ian Price 2015-06-23 15:52:42 +01:00
parent 88c052214f
commit b631576f13
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/javascript.scm
View file

@ -85,7 +85,7 @@
(($ var id exp) (($ var id exp)
`(var ,id ,(unparse-js exp))) `(var ,id ,(unparse-js exp)))
(($ binop op arg1 arg2) (($ binop op arg1 arg2)
`(binop ,op ,arg1 ,arg2)))) `(binop ,op ,(unparse-js arg1) ,(unparse-js arg2)))))
(define (print-exp exp port) (define (print-exp exp port)
(match exp (match exp