From: David Vázquez <davazp@gmail.com>
Date: Sat, 25 May 2013 13:23:30 +0000 (+0100)
Subject: progn translation uses ',' Javascript operator
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c59536501d4a2f8c161e12194deea0f3f345d666;p=jscl.git

progn translation uses ',' Javascript operator

New compiler should deprecate this soon
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 46817ed..3a74399 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -670,7 +670,14 @@
 (define-compilation progn (&rest body)
   (if (null (cdr body))
       (ls-compile (car body) *multiple-value-p*)
-      (js!selfcall (ls-compile-block body t))))
+      (code "("
+            (join
+             (remove-if #'null-or-empty-p
+                        (append
+                         (mapcar #'ls-compile (butlast body))
+                         (list (ls-compile (car (last body)) t))))
+                  ",")
+            ")")))
 
 (defun special-variable-p (x)
   (and (claimp x 'variable 'special) t))