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 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:
Mlib/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")) ) )