From: David Vázquez <davazp@gmail.com>
Date: Fri, 21 Jun 2013 23:28:45 +0000 (+0200)
Subject: Bug unparsing JS function
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9e261baa6148844537dedc7dd1486aa2674dd95d;p=jscl.git

Bug unparsing JS function
---

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index 50f33af..105bfcd 100644
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -154,7 +154,7 @@
       (js-format ",")
       (js-identifier arg)))
   (js-format ")")
-  (js-stmt `(group ,@body)))
+  (js-stmt `(group ,@body) t))
 
 (defun check-lvalue (x)
   (unless (or (symbolp x)
@@ -362,9 +362,12 @@
     ((and (consp form) (eq (car form) 'progn))
      (destructuring-bind (&body body) (cdr form)
        (cond
-         ((null body)           '(empty))
-         ((null (cdr body))     (js-expand-stmt (car body)))
-         (t                     `(group ,@(cdr form))))))
+         ((null body)
+          '(empty))
+         ((null (cdr body))
+          (js-expand-stmt (car body)))
+         (t
+          `(group ,@(cdr form))))))
     (t
      form)))