picolisp

commit ce8ffcd527d204d23fecef35736eaa06b38d9c52
parent a1db175ea0b87f1d45ced6f3e76b528552970560
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 27 Oct 2011 16:58:46 +0200

'env' should copy symbol-value-pair cells
Diffstat:
M
ersatz/fun.src
 | 
4
++--
M
ersatz/picolisp.jar
 | 
0

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/ersatz/fun.src b/ersatz/fun.src
@@ -1,4 +1,4 @@
-# 22jul11abu
+# 27oct11abu
 # (c) Software Lab. Alexander Burger
 
 # Ersatz PicoLisp Functions
@@ -27,7 +27,7 @@ env (i x y)
       do {
          if ((x = ex.Car.eval()) instanceof Cell) {
             do
-               y = new Cell(x.Car instanceof Cell? x.Car : new Cell(x.Car, x.Car.Car), y);
+               y = new Cell(x.Car instanceof Cell? new Cell(x.Car.Car, x.Car.Cdr) : new Cell(x.Car, x.Car.Car), y);
             while ((x = x.Cdr) instanceof Cell);
          }
          else if (x != Nil) {
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.