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