From f8f633d07dee3fb738e23f72a9a19fc763715f6d Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Fri, 28 Dec 2012 17:59:43 +0000 Subject: [PATCH] Extra *newline* in CDR translation --- lispstrack.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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*) -- 1.7.10.4