Permalink
Browse files

output 5..toString() instead of (5).toString()

  • Loading branch information...
1 parent 9596935 commit 1fa7fe58b40f6e40f765584fe63c882dde4a24c7 @mishoo committed Jan 21, 2011
Showing with 4 additions and 1 deletion.
  1. +4 −1 src/codegen.lisp
View
@@ -345,7 +345,10 @@ characters in string S to STREAM."
"(" (join (mapcar (lambda (expr) (parenthesize expr :seq)) args) ", " ",") ")"))
(:dot (expr prop)
- (stick (parenthesize expr #'needs-parens) "." prop))
+ (stick (if (eq (car expr) :num)
+ (stick (gencode expr) ".")
+ (parenthesize expr #'needs-parens))
+ "." prop))
(:if (cond then else)
(apply #'add-spaces `("if" ,(stick "(" (gencode cond) ")")

0 comments on commit 1fa7fe5

Please sign in to comment.