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 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:
Msrc/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 == '{') {