picolisp

commit fc57b44da5927324edc908fd1d365b345cc787c1
parent dda5acde4232634fbd8b446b03cea4d4d3e136c2
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 13 Nov 2012 22:07:49 +0100

Unconditionally intern transient symbols in 'read'
Diffstat:
M
src/io.c
 | 
5
++---

1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/io.c b/src/io.c
@@ -1,4 +1,4 @@
-/* 09nov12abu
+/* 13nov12abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -1224,8 +1224,7 @@ static any read0(bool top) {
       if (x = findHash(y, h = Transient + ihash(y)))
          return x;
       x = consStr(y);
-      if (Env.get == getStdin)
-         *h = cons(x,*h);
+      *h = cons(x,*h);
       return x;
    }
    if (Chr == '{') {