Update of /cvsroot/wisp/wisp
In directory sc8-pr-cvs1:/tmp/cvs-serv31292
Modified Files:
wisplint.wisp
Log Message:
ignore *~ and doc/examples/hello.was .
Index: wisplint.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/wisplint.wisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- wisplint.wisp 7 Sep 2002 21:52:26 -0000 1.19
+++ wisplint.wisp 7 Jan 2003 10:13:28 -0000 1.20
@@ -88,7 +88,8 @@
(for-each
(lambda (name)
- (if (not (or (member name '("src/essence.c") string=?)))
+ (if (not (or (char=? (ref name -1) #\~)
+ (member name '("src/essence.c") string=?)))
(begin
(print "Scanning $,[name] \e[80P\r") ; not a smiley
(my suffix (filename-suffix name)
@@ -105,6 +106,7 @@
"doc/TODO"
"doc/depends.txt"
"doc/examples/embed.ewisp"
+ "doc/examples/hello.was"
"doc/examples/quine.wisp"
"doc/paw.txt"
"doc/wisp.texi"
@@ -149,6 +151,7 @@
"doc/TODO"
"doc/depends.txt"
"doc/examples/embed.ewisp"
+ "doc/examples/hello.was"
"doc/examples/quine.wisp"
"doc/wisp.texi"
"install-sh"
@@ -170,6 +173,7 @@
"debian/control"
"doc/TODO"
"doc/depends.txt"
+ "doc/examples/hello.was"
"doc/examples/quine.wisp"
"doc/paw.txt"
"doc/wisp.texi"
|
