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

diff --git a/test-suite/guile-test b/test-suite/guile-test
index 05703c5..1d16368 100755 (executable)
--- a/test-suite/guile-test
+++ b/test-suite/guile-test
@@ -122,7 +122,9 @@
                (cond
                 ((eof-object? entry) #f)
                 ((or (string=? entry ".")
-                     (string=? entry ".."))
+                     (string=? entry "..")
+                      (string=? entry "CVS")
+                      (string=? entry "RCS"))
                  (loop))
                 (else
                  (visit (string-append root "/" entry))