From: David Vázquez <davazp@gmail.com>
Date: Fri, 28 Jun 2013 20:39:34 +0000 (+0200)
Subject: Fix bug with funcall precedence
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=43ce9d12172fa9e8f897872f3f777511e998ae0e;p=jscl.git

Fix bug with funcall precedence
---

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index 166c7f9..ee80ead 100644
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -226,8 +226,8 @@
              (js-expr (car args))
              (js-format ")")))
        (js-format "(")
-       (when (cdr args)
-         (with-operator (12 'left)
+       (let ((*js-operator-precedence* 12))
+         (when (cdr args)
            (js-expr (cadr args))
            (dolist (operand (cddr args))
              (let ((*js-output* t))