Avoid reading e.g. ../../src/runtime/.#genio.scm.

diff --git a/tests/gtk/test-gport-performance.scm b/tests/gtk/test-gport-performance.scm
index 80e6a7cb959831f8fe7491a008402df744045294..aece3027ef04dfce846e2b9ff724d352f54f5e80 100644 (file)
--- a/tests/gtk/test-gport-performance.scm
+++ b/tests/gtk/test-gport-performance.scm
@@ -87,9 +87,11 @@ USA.
                  (if (eof-object? obj)
                      '()
                      (cons obj (loop))))))))
-        (directory-read
-         (merge-pathnames (->simple-pathname "../../src/runtime/")
-                          "*.scm")))))
+        (scm-files "../../src/runtime/*.scm"))))
+
+(define (scm-files dirpatt)
+  (remove (lambda (path) (string-prefix? "." (pathname-name path)))
+         (directory-read (->simple-pathname dirpatt))))
 
 (define (make-write-exprs with-output-port)
   (named-lambda (write-exprs data)
@@ -108,7 +110,7 @@ USA.
                          (if (eof-object? obj)
                              '()
                              (cons obj (loop))))))))
-                (directory-read "../../src/runtime/*.scm"))))
+                (scm-files "../../src/runtime/*.scm"))))
 
 (define (make-write-lines with-output-port)
   (named-lambda (write-lines lines)
@@ -126,10 +128,10 @@ USA.
     (close-input-port port)
     value))
 
-(define-integrable (->file-uri-string pathname)
+(define (->file-uri-string pathname)
   (string-append "file://" (->simple-namestring pathname)))
 
-(define-integrable (->simple-namestring pathname)
+(define (->simple-namestring pathname)
   (->namestring (->simple-pathname pathname)))
 
 (define (->simple-pathname pathname)