From ceb699b099f9cefaf5d27942a3c4795683d5a570 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 7 Nov 2026 01:47:37 +0000
Subject: Canonicalize file paths when traversing file tree.

---
 kaagum/tools/base.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/kaagum/tools/base.scm b/kaagum/tools/base.scm
index f05ed6b..69d1a87 100644
--- a/kaagum/tools/base.scm
+++ b/kaagum/tools/base.scm
@@ -67,7 +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))
-                                (cons path result)
+                                (guard (c (#t result))
+                                  (cons (canonicalize-path path)
+                                        result))
                                 result))
                           (lambda (path stat result)
                             result)
-- 
cgit 1.4.1