picolisp

commit 5a22db20c1dafb220424ca50d8cbbf2b39fb2aa5
parent 8039cf74d6c9b7303fd66bafcfb6e3d048a3912f
Author: Commit-Bot <unknown>
Date:   Sun, 14 Nov 2010 09:43:50 +0000

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

M
ersatz/sys.src
 | 
4
++--
M
lib/lint.l
 | 
5
+----

4 files changed, 6 insertions(+), 7 deletions(-)
diff --git a/dbg.l b/dbg.l
@@ -1,4 +1,4 @@
-# 14nov10abu
+# 14apr10abu
 # (c) Software Lab. Alexander Burger
 
 (on *Dbg)
@@ -11,4 +11,6 @@
 
 (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/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/ersatz/sys.src b/ersatz/sys.src
@@ -1,4 +1,4 @@
-// 12nov10abu
+// 14nov10abu
 // (c) Software Lab. Alexander Burger
 
 import java.util.*;
@@ -725,7 +725,7 @@ public class PicoLisp {
 
    final static Any funq(Any x) {
       Any y;
-      if (x instanceof Symbol)
+      if (x == Nil || x instanceof Symbol)
          return Nil;
       if (x instanceof Number)
          return ((Number)x).Big == null && ((Number)x).Cnt <= MaxFun? x : Nil;
diff --git a/lib/lint.l b/lib/lint.l
@@ -1,4 +1,4 @@
-# 14nov10abu
+# 21may10abu
 # (c) Software Lab. Alexander Burger
 
 # *NoLint
@@ -8,9 +8,6 @@
       (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))