From 43ce9d12172fa9e8f897872f3f777511e998ae0e Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 28 Jun 2013 22:39:34 +0200 Subject: [PATCH] Fix bug with funcall precedence --- src/compiler-codegen.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4