From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 27 Jul 2011 22:52:50 +0000 (-0700)
Subject: Avoid reading e.g. ../../src/runtime/.#genio.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~658
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=234ab5c6e51520f1dbafd046310bc8c2e4cb1c11;p=mit-scheme.git

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 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)