Permalink
Browse files

fix for issue #61: foo((x, y)) incorrectly transformed to foo(x, y)

  • Loading branch information...
1 parent 0f2f6fb commit c47a23e38692266e3cda983f98921ec9ac6728f2 @mishoo committed Nov 26, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/codegen.lisp
View
@@ -327,7 +327,7 @@ characters in string S to STREAM."
(:call (expr args)
(stick (parenthesize expr #'needs-parens)
- "(" (join (mapcar #'gencode args) ", " ",") ")"))
+ "(" (join (mapcar (lambda (expr) (parenthesize expr :seq)) args) ", " ",") ")"))
(:dot (expr prop)
(stick (parenthesize expr #'needs-parens) "." prop))

0 comments on commit c47a23e

Please sign in to comment.