diff options
| author | Arun Isaac | 2026-11-07 01:47:37 +0000 |
|---|---|---|
| committer | Arun Isaac | 2026-11-07 01:47:37 +0000 |
| commit | ceb699b099f9cefaf5d27942a3c4795683d5a570 (patch) | |
| tree | 7363b0affaaa100d86e74d417d459f9fc4d74b4c | |
| parent | b5e1e011b8177faa3fcafe732990cb7f83744c29 (diff) | |
| download | kaagum-ceb699b099f9cefaf5d27942a3c4795683d5a570.tar.gz kaagum-ceb699b099f9cefaf5d27942a3c4795683d5a570.tar.lz kaagum-ceb699b099f9cefaf5d27942a3c4795683d5a570.zip | |
Canonicalize file paths when traversing file tree.
| -rw-r--r-- | kaagum/tools/base.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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) |