X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler-codegen.lisp;h=166c7f9c0af9a718c39d22cad29a9e0edb1b2b4f;hb=5e830cf64b2bd21333fd733706fe393a218e5550;hp=e82b841b3ef2a368681a3a067962febc92e3eaf8;hpb=7a69b71c1758efe51d64b1877b5865ac31b71931;p=jscl.git

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index e82b841..166c7f9 100644
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -219,7 +219,12 @@
        (js-format "~a" (apply #'code args)))
       ;; Function call
       (call
-       (js-expr (car args))
+       (if (symbolp (car args))
+           (js-expr (car args))
+           (progn
+             (js-format "(")
+             (js-expr (car args))
+             (js-format ")")))
        (js-format "(")
        (when (cdr args)
          (with-operator (12 'left)