Fix bug in lambda compilation

[jscl.git] / lispstrack.lisp

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 705c089..16be306 100644 (file)
--- 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) ";")
            "
 })")))