From c59536501d4a2f8c161e12194deea0f3f345d666 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 25 May 2013 14:23:30 +0100 Subject: [PATCH] progn translation uses ',' Javascript operator New compiler should deprecate this soon --- src/compiler.lisp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4