picolisp

commit 8c279a2ce72717c8ec7745419e318caa056415d0
parent 5f0fe6f52b583852557a4d267942423a2c7fa97f
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 10 Jul 2013 17:12:07 +0200

Same for Ersatz
Diffstat:
M
ersatz/picolisp.jar
 | 
0

M
ersatz/sys.src
 | 
8
++++----

2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/ersatz/sys.src b/ersatz/sys.src
@@ -1,4 +1,4 @@
-// 05jul13abu
+// 10jul13abu
 // (c) Software Lab. Alexander Burger
 
 import java.util.*;
@@ -1582,18 +1582,18 @@ public class PicoLisp {
          }
          if (Chr == '\'') {
             get();
-            return new Cell(Quote, read0(false));
+            return new Cell(Quote, read0(top));
          }
          if (Chr == ',') {
             get();
-            x = read0(false);
+            x = read0(top);
             if (Uni.Car != T)
                x = (y = idx(Uni, x, 1)) instanceof Cell? y.Car : x;
             return x;
          }
          if (Chr == '`') {
             get();
-            return read0(false).eval();
+            return read0(top).eval();
          }
          if (Chr == '"') {
             get();