From: David Vazquez <davazp@gmail.com>
Date: Fri, 28 Dec 2012 17:59:43 +0000 (+0000)
Subject: Extra *newline* in CDR translation
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f8f633d07dee3fb738e23f72a9a19fc763715f6d;p=jscl.git

Extra *newline* in CDR translation
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 18489aa..9c77a8b 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -848,7 +848,7 @@
     ((consp sexp) (concat "{car: "
                           (literal->js (car sexp))
                           ", cdr: "
-			  (literal->js (cdr sexp)) "}"))))
+                          (literal->js (cdr sexp)) "}"))))
 
 (defvar *literal-counter* 0)
 (defun literal (form)
@@ -1002,7 +1002,7 @@
 
 (define-compilation cdr (x)
   (concat "(function(){" *newline*
-          (indent "var tmp = " (ls-compile x env fenv) ";"
+          (indent "var tmp = " (ls-compile x env fenv) ";" *newline*
                   "return tmp === " (ls-compile nil nil nil) "? "
                   (ls-compile nil nil nil)
                   ": tmp.cdr;" *newline*)