X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=lispstrack.lisp;h=16be30623c486f7faa810569e26695971397f318;hb=bcee72707404142f5ec8dad6c04e9b802ea8ca0b;hp=705c089c63e4f7da39b376799e74d63c9ad772f8;hpb=b41e94b86a1eda01fe890971025e9a36a32b0707;p=jscl.git

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 705c089..16be306 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -85,8 +85,8 @@
                   ",")
 	    "){
 "
-            (concat (ls-compile-block (butlast body) env fenv)
-                    "return " (ls-compile (car (last body)) env fenv) ";")
+            (concat (ls-compile-block (butlast body) new-env fenv)
+                    "return " (ls-compile (car (last body)) new-env fenv) ";")
 	    "
 })")))