From: Raimon Grau <raimonster@gmail.com>
Date: Sat, 15 Dec 2012 01:10:23 +0000 (+0100)
Subject: aritmetic primitives
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a67bc2185011b23937dfad27f491769907565896;p=jscl.git

aritmetic primitives
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index bbefac5..9ebcf17 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -36,13 +36,12 @@
   (concat (join (mapcar (lambda (x)
                           (concat (ls-compile x env) ";"))
                         sexps)
-                "
+                ";
 ")))
 
 (defun ls-compile-block (sexps env)
-  (concat (ls-compile-sexps (butlast sexps env) env)
-          ";
-return " (ls-compile (car (last sexps)) env) ";"))
+  (concat (ls-compile-sexps (butlast sexps) env)
+          "return " (ls-compile (car (last sexps)) env) ";"))
 
 
 (defun extend-env (args env)