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)
|
