From: David Vázquez <davazp@gmail.com>
Date: Mon, 24 Jun 2013 11:17:10 +0000 (+0200)
Subject: Fix bug in var initialization
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=178cdd017c823790e35f4a41fa4c462eeaf28a58;p=jscl.git

Fix bug in var initialization

Test case:

(js '(var (x (call foo 1 2 3))))
---

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index 14113c6..6a3abc9 100644
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -222,7 +222,7 @@
        (js-expr (car args))
        (js-format "(")
        (when (cdr args)
-         (with-operator (13 'left)
+         (with-operator (12 'left)
            (js-expr (cadr args))
            (dolist (operand (cddr args))
              (let ((*js-output* t))