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

mishoo · Jan 21, 2011 · 1fa7fe5 · 1fa7fe5
1 parent 9596935
commit 1fa7fe5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/codegen.lisp b/src/codegen.lisp
@@ -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) ")")