From 21519ac49c199fb8ab5fd81fd184c2a761d57770 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Sun, 16 Jul 2006 16:46:30 +0000
Subject: [PATCH] Fix compilation of ((foo) bar) -> foo()(bar)

---
 src/js.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/js.lisp b/src/js.lisp
index 296d704..1e11476 100644
--- a/src/js.lisp
+++ b/src/js.lisp
@@ -652,7 +652,14 @@ vice-versa.")
        (dwim-join (list (js-to-strings (f-function form) (+ start-pos 2))
                         args)
                   max-length
-                  :separator "")))))
+                  :separator ""))
+      (function-call
+       ;; TODO it adds superfluous newlines after each ()
+       ;; and it's nearly the same as the js-lambda case above
+       (dwim-join (list (append (dwim-join (list (js-to-strings (f-function form) (+ start-pos 2)))
+                                           max-length :separator "")
+                                args))
+                  max-length :separator "")))))
 
 (defjsclass method-call (expression)
   ((method :initarg :method :accessor m-method)
-- 
2.20.1