diff options
| -rw-r--r-- | kaagum/tools/base.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kaagum/tools/base.scm b/kaagum/tools/base.scm index 69d1a87..749baa2 100644 --- a/kaagum/tools/base.scm +++ b/kaagum/tools/base.scm @@ -67,6 +67,9 @@ directory, return a singleton list with @var{path} alone." (not (string-prefix? "." (basename path)))) (lambda (path stat result) (if (regexp-exec pattern-rx (basename path)) + ;; Canonicalize path when building the result. + ;; canonicalize-path accesses the filesystem and + ;; may fail; if it does, discard the file. (guard (c (#t result)) (cons (canonicalize-path path) result)) |