mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

(for-each-file): Do not recurse into "CVS" or "RCS" subdirs.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2002-02-09 22:42:54 +00:00
parent ecb471f939
commit 1febd88c0f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/guile-test
View file

@ -122,7 +122,9 @@
(cond (cond
((eof-object? entry) #f) ((eof-object? entry) #f)
((or (string=? entry ".") ((or (string=? entry ".")
(string=? entry "..")) (string=? entry "..")
(string=? entry "CVS")
(string=? entry "RCS"))
(loop)) (loop))
(else (else
(visit (string-append root "/" entry)) (visit (string-append root "/" entry))