Comment on canonicalizing file paths when traversing file tree. HEAD main

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