oke.

2026-08-09 09:30:28 +02:00
parent 0f1c1da672
commit ac8e492aff
2 changed files with 15 additions and 3 deletions
@@ -141,7 +141,8 @@

 (define (list-dir/files directory regexp #:recursive [recursive #f])
  (filter (lambda (path)
-            (regexp-match? regexp path))
+            (let ((fn (file-name-from-path path)))
+              (regexp-match? regexp fn)))
          (if recursive
              (for/list ([path (in-directory directory)])
                path)