Update of /cvsroot/wisp/wisp
In directory sc8-pr-cvs1:/tmp/cvs-serv28827
Modified Files:
wisplint.wisp
Log Message:
tweaked Id: tags of README:s
Index: wisplint.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/wisplint.wisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- wisplint.wisp 1 Feb 2003 14:02:47 -0000 1.22
+++ wisplint.wisp 5 Feb 2003 19:18:48 -0000 1.23
@@ -97,7 +97,6 @@
(not (member name '("COPYING"
"DISCLAIMER"
"INSTALL"
- "README"
"config.guess"
"config.sub"
"debian/changelog"
@@ -117,11 +116,11 @@
"tests/cut-check.wisp"
"tests/srfi-1.wisp"
"tests/srfi-26.wisp"
- "wa/README.wa"
"web/gray.cgi"
"web/index.html"
"web/names.cgi")
- string=?)))
+ string=?))
+ (not (string-contains name "README")))
(begin
(run check-for-gpl-notice name)
(run check-for-long-mail-address name)))
@@ -140,7 +139,6 @@
(not (member name '("COPYING"
"DISCLAIMER"
"INSTALL"
- "README"
"config.guess"
"config.sub"
"debian/changelog"
@@ -155,15 +153,13 @@
"src/native/sysconst.inc"
"src/stamp-h.in"
"src/sysconst.h"
- "tests/cut-check.wisp"
- "wa/README.wa")
+ "tests/cut-check.wisp")
string=?)))
(run check-for-id name))
(if (and (not (equal? (filename-suffix name) ".s"))
(not (member name '("COPYING"
"DISCLAIMER"
"INSTALL"
- "README"
"debian/changelog"
"debian/control"
"doc/TODO"
@@ -174,11 +170,11 @@
"src/native/sysconst.inc"
"src/stamp-h.in"
"src/sysconst.h"
- "wa/README.wa"
"web/gray.cgi"
"web/index.html"
"web/names.cgi")
- string=?)))
+ string=?))
+ (not (string-contains name "README")))
(run check-for-filename name))))))
(collect
(lambda (emit)
|
