[Wisp-cvs] wisp wisplint.wisp,1.19,1.20

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

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"