Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

…first

thing in a statement
  • Loading branch information...
commit 7ef0999efdf1a37d2a48a58e0c7fed67016ddf65 1 parent e970ad7
@mishoo authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/codegen.lisp
View
4 src/codegen.lisp
@@ -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)))
Please sign in to comment.
Something went wrong with that request. Please try again.