picolisp

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:
M
src/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)