From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 9 May 2012 22:43:07 +0000 (-0700)
Subject: bug #30546: Treat #f like WILD in directory-read pathname matching.
X-Git-Tag: release-9.2.0~247^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=49db7bb78270042f04865689efcebd4c8b1199d2;p=mit-scheme.git

bug #30546: Treat #f like WILD in directory-read pathname matching.
---

diff --git a/src/runtime/dosdir.scm b/src/runtime/dosdir.scm
index cbdb1e772..b9eed3bdb 100644
--- a/src/runtime/dosdir.scm
+++ b/src/runtime/dosdir.scm
@@ -107,7 +107,7 @@ USA.
 ;;; "*foo?bar*" matching "foogbazfoogbar".
 
 (define (component-matcher pattern)
-  (cond ((eq? pattern 'WILD)
+  (cond ((or (eq? pattern 'WILD) (eq? pattern '#F))
 	 (lambda (instance)
 	   instance			; ignored
 	   true))
diff --git a/src/runtime/unxdir.scm b/src/runtime/unxdir.scm
index 2e9a81568..101aca0d8 100644
--- a/src/runtime/unxdir.scm
+++ b/src/runtime/unxdir.scm
@@ -76,6 +76,7 @@ USA.
 
 (define (match-component pattern instance)
   (or (eq? pattern 'WILD)
+      (eq? pattern #F)
       (equal? pattern instance)))
 
 (define (pathname<? x y)