From 49db7bb78270042f04865689efcebd4c8b1199d2 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 9 May 2012 15:43:07 -0700
Subject: [PATCH] bug #30546: Treat #f like WILD in directory-read pathname
 matching.

---
 src/runtime/dosdir.scm | 2 +-
 src/runtime/unxdir.scm | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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