Permalink
Browse files

fixes #1 -- add parens in (function(){...}).foo when the function is …

…first

thing in a statement
  • Loading branch information...
1 parent e970ad7 commit 7ef0999efdf1a37d2a48a58e0c7fed67016ddf65 @mishoo committed Feb 9, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/codegen.lisp
View
@@ -74,8 +74,8 @@ characters in string S to STREAM."
(loop
:for (this p) :on stack
:when (eq (car p) :stat) :do (return t)
- :unless (and (eq (car p) :seq)
- (eq (cadr p) this)) :do (return nil)))
+ :unless (and (eq (cadr p) this)
+ (member (car p) '(:seq :call :binary))) :do (return nil)))
((:name :array :string :dot :sub :call :regexp) nil)
(t t)))

0 comments on commit 7ef0999

Please sign in to comment.