From 9511928a30436c1ffeefccb79aea296a5b80f768 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Tue, 18 Dec 2012 00:41:34 +0000 Subject: [PATCH] Remove unnecessary semicolons --- lispstrack.lisp | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lispstrack.lisp b/lispstrack.lisp index 1b2b79d..3809e9f 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -185,9 +185,10 @@ (defvar *compilations* nil) (defun ls-compile-block (sexps env fenv) - (join-trailing (mapcar (lambda (x) - (ls-compile x env fenv)) - sexps) + (join-trailing + (remove nil (mapcar (lambda (x) + (ls-compile x env fenv)) + sexps)) "; ")) @@ -222,7 +223,7 @@ (define-compilation if (condition true false) (concat "(" - (ls-compile condition env fenv) " == undefined" + (ls-compile condition env fenv) " ? " (ls-compile true env fenv) " : " @@ -416,7 +417,7 @@ (concat "(" (ls-compile x env fenv) " === " (ls-compile y env fenv) ")")) (define-compilation string (x) - (concat "String.fromCharCode( " (ls-compile x env fenv) ")")) + (concat "String.fromCharCode(" (ls-compile x env fenv) ")")) (define-compilation char (string index) (concat "(" @@ -516,12 +517,14 @@ #+common-lisp (progn (defun ls-compile-file (filename output) + (setq *env* nil *fenv* nil) (with-open-file (in filename) (with-open-file (out output :direction :output :if-exists :supersede) (loop for x = (ls-read in) until (eq x *eof*) for compilation = (ls-compile-toplevel x) - when compilation do (write-line (concat compilation "; ") out))))) + when (plusp (length compilation)) + do (write-line (concat compilation "; ") out))))) (defun bootstrap () (ls-compile-file "lispstrack.lisp" "lispstrack.js"))) -- 1.7.10.4