picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mersatz/fun.src | 4++--
Mersatz/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.