picolisp

commit 45de72ef1c136c5d31c0986515b3fd967f5144bb
parent 162767a7ca08aabf52cae1209e5b7f792ce09988
Author: Commit-Bot <unknown>
Date:   Fri, 21 May 2010 18:13:55 +0000

Automatic commit from picoLisp.tgz, From: Fri, 21 May 2010 15:13:55 GMT
Diffstat:
M
lib/lint.l
 | 
9
+++++----

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lib/lint.l b/lib/lint.l
@@ -1,4 +1,4 @@
-# 31mar10abu
+# 21may10abu
 # (c) Software Lab. Alexander Burger
 
 # *NoLint
@@ -44,9 +44,10 @@
             ((: ::))
             (; (lint1 (cadr "X")))
             (quote
-               (if (and (pair (fun? (cdr "X"))) (not (cdr (tail 1 @))))
-                  (use "*L" (lintFun (cdr "X")))
-                  (lint2 (cdr "X")) ) )
+               (let F (fun? (cdr "X"))
+                  (if (or (and (pair F) (not (fin @))) (== '@ F))
+                     (use "*L" (lintFun (cdr "X")))
+                     (lint2 (cdr "X")) ) ) )
             ((de dm)
                (let "*X" (cadr "X")
                   (lintFun (cddr "X")) ) )