picolisp

commit 8039cf74d6c9b7303fd66bafcfb6e3d048a3912f
parent b9dd9d78bfa96aa2fe04a17d77ad868454a5aa48
Author: Commit-Bot <unknown>
Date:   Sun, 14 Nov 2010 09:18:05 +0000

Automatic commit from picoLisp.tgz, From: Sun, 14 Nov 2010 09:18:05 GMT
Diffstat:
M
dbg.l
 | 
4
+---
M
ersatz/fun.src
 | 
8
++++----
M
ersatz/picolisp.jar
 | 
0

M
lib/lint.l
 | 
5
++++-

4 files changed, 9 insertions(+), 8 deletions(-)
diff --git a/dbg.l b/dbg.l
@@ -1,4 +1,4 @@
-# 14apr10abu
+# 14nov10abu
 # (c) Software Lab. Alexander Burger
 
 (on *Dbg)
@@ -11,6 +11,4 @@
 
 (load "@lib/debug.l" "@lib/led.l" "@lib/edit.l" "@lib/lint.l" "@lib/sq.l")
 
-(noLint 'later (loc "@Prg" later))
-
 # vi:et:ts=3:sw=3
diff --git a/ersatz/fun.src b/ersatz/fun.src
@@ -1,4 +1,4 @@
-# 12nov10abu
+# 14nov10abu
 # (c) Software Lab. Alexander Burger
 
 # Ersatz PicoLisp Functions
@@ -1455,9 +1455,9 @@ for (i w x y z bnd)
             }
             else
                y = y.eval();
-            if (z.Cdr instanceof Cell)
-               bnd.Data[1].Car = z.Cdr.prog();
          } while ((x = x.Cdr) instanceof Cell);
+         if (z.Cdr instanceof Cell)
+            bnd.Data[1].Car = z.Cdr.prog();
       }
    }
    for (i = bnd.Cnt; (i -= 2) >= 0;)
@@ -1654,7 +1654,7 @@ box? (x)
 
 # (str? 'any) -> sym | NIL
 str? (x)
-   return ((x = ex.Cdr.Car.eval()) instanceof Symbol) && Intern.get(x.name()) == null? x : Nil;
+   return ((x = ex.Cdr.Car.eval()) instanceof Symbol) && Intern.get(x.name()) != x? x : Nil;
 
 # (ext? 'any) -> sym | NIL
 ext? T
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/lint.l b/lib/lint.l
@@ -1,4 +1,4 @@
-# 21may10abu
+# 14nov10abu
 # (c) Software Lab. Alexander Burger
 
 # *NoLint
@@ -8,6 +8,9 @@
       (push1 '*NoLint (cons X V))
       (or (memq X *NoLint) (push '*NoLint X)) ) )
 
+(noLint 'later (loc "@Prg" later))
+
+
 (de global? (S)
    (or
       (memq S '(NIL ^ @ @@ @@@ This T))