Diverse aanpassingen

2026-08-09 14:56:42 +02:00
parent ac8e492aff
commit 2e1899292c
8 changed files with 63 additions and 22 deletions
@@ -141,8 +141,9 @@

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