From 9e261baa6148844537dedc7dd1486aa2674dd95d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 22 Jun 2013 01:28:45 +0200 Subject: [PATCH] Bug unparsing JS function --- src/compiler-codegen.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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))) -- 1.7.10.4