From 234ab5c6e51520f1dbafd046310bc8c2e4cb1c11 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 27 Jul 2011 15:52:50 -0700 Subject: [PATCH] Avoid reading e.g. ../../src/runtime/.#genio.scm. --- tests/gtk/test-gport-performance.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/tests/gtk/test-gport-performance.scm b/tests/gtk/test-gport-performance.scm index 80e6a7cb9..aece3027e 100644 --- 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) -- 2.25.1