[Wisp-cvs] wisp wisplint.wisp,1.24,1.25
Status: Alpha
Brought to you by:
digg
From: <di...@us...> - 2003-02-07 09:10:34
|
Update of /cvsroot/wisp/wisp In directory sc8-pr-cvs1:/tmp/cvs-serv15616 Modified Files: wisplint.wisp Log Message: removed exemptions for install-sh and missing since they're in .cvsignore now Index: wisplint.wisp =================================================================== RCS file: /cvsroot/wisp/wisp/wisplint.wisp,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- wisplint.wisp 6 Feb 2003 20:11:38 -0000 1.24 +++ wisplint.wisp 7 Feb 2003 09:10:30 -0000 1.25 @@ -108,8 +108,6 @@ "doc/examples/quine.wisp" "doc/paw.txt" "doc/wisp.texi" - "install-sh" - "missing" "mkinstalldirs" "src/native/sysconst.inc" "src/stamp-h.in" @@ -125,16 +123,14 @@ (begin (run check-for-gpl-notice name) (run check-for-long-mail-address name))) - (if (not (member name '("install-sh" ; FIXME: a temporary exception - "tests/cut-check.wisp") + (if (not (member name '("tests/cut-check.wisp") string=?)) (run check-for-untrimmed-lines name)) (if (not (or (string-drop-suffix "Makefile.am" name) (member name '("config.guess" "config.sub" "debian/rules" - "tests/cut-check.wisp" - "install-sh")))) + "tests/cut-check.wisp")))) (run check-for-tabulated-lines name)) (if (and (not (equal? (filename-suffix name) ".s")) (not (member name '("COPYING" @@ -150,8 +146,6 @@ "doc/examples/embed.ewisp" "doc/examples/quine.wisp" "doc/wisp.texi" - "install-sh" - "missing" "src/native/sysconst.inc" "src/stamp-h.in" "src/sysconst.h" |