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 eea5ef1f0163235dcbec6499f1f500e8a6c1baed
parent cf1801e0d6da2623d89916287dbd9b8e2123e060
Author: Commit-Bot <unknown>
Date:   Mon, 23 Aug 2010 06:47:17 +0000

Automatic commit from picoLisp.tgz, From: Mon, 23 Aug 2010 06:47:17 GMT
Diffstat:
Msrc/io.c | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/io.c b/src/io.c @@ -1,4 +1,4 @@ -/* 07aug10abu +/* 23aug10abu * (c) Software Lab. Alexander Burger */ @@ -2808,7 +2808,7 @@ bool isLife(any x) { adr n; byte buf[2*BLK]; - if (n = blk64(name(x))*BLKSIZE) { + if ((n = blk64(name(x))*BLKSIZE) > 0) { if (F < Files) { for (x = tail1(x); !isSym(x); x = cdr(cellPtr(x))); if (x == At || x == At2)