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

diff --git a/src/runtime/dosdir.scm b/src/runtime/dosdir.scm
index cbdb1e772b9d24821639ec0e02e366c059ed8577..b9eed3bdb512c21aab474186a6b2fe0b76735b1c 100644 (file)
--- 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 2e9a8156834b4ac48615d0ef1dcdd0d3abb6e357..101aca0d88ffcdb3a4147cc8a61b0af2467e6695 100644 (file)
--- 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)