From a67bc2185011b23937dfad27f491769907565896 Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Sat, 15 Dec 2012 02:10:23 +0100 Subject: [PATCH] aritmetic primitives --- lispstrack.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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) -- 1.7.10.4