[Wisp-cvs] wisp wisplint.wisp,1.22,1.23

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

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)