test

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 9ebcf17..057cd7e 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -97,7 +97,7 @@ body can access to the local environment through the variable env"
     (with-open-file (out "test.js" :direction :output :if-exists :supersede)
       (loop
          for x = (read in nil) while x
-         do (write-string (ls-compile x) out)))))
+         do (write-string (concat (ls-compile x) "; ") out)))))
 
 (define-compilation while (pred &rest body)
   (format nil "(function(){while(~a){~a}})() "

diff --git a/test.lisp b/test.lisp
index d555938..75ae829 100644 (file)
--- a/test.lisp
+++ b/test.lisp
@@ -3,3 +3,4 @@
   x)
 
 (debug "hola")
+(debug (if 2 (+ 2 1) 0))