[Wisp-cvs] wisp wisplint.wisp,1.25,1.26

[<di...@us...>]

Update of /cvsroot/wisp/wisp
In directory sc8-pr-cvs1:/tmp/cvs-serv28356

Modified Files:
	wisplint.wisp 
Log Message:
do not check users/pisi/** for lint

Index: wisplint.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/wisplint.wisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- wisplint.wisp	7 Feb 2003 09:10:30 -0000	1.25
+++ wisplint.wisp	10 Mar 2003 15:39:49 -0000	1.26
@@ -89,7 +89,8 @@
 (for-each
   (lambda (name)
     (if (not (or (char=? (ref name -1) #\~)
-                 (member name '("src/essence.c") string=?)))
+                 (member name '("src/essence.c") string=?)
+                 (string=? name[... 11] "users/pisi/")))
       (begin
         (print "Scanning $,[name] \e[80P\r") ; not a smiley
         (my suffix (filename-suffix name)