diff options
| author | Arun Isaac | 2026-11-07 01:43:47 +0000 |
|---|---|---|
| committer | Arun Isaac | 2026-11-07 01:43:47 +0000 |
| commit | 330d89641c4dc5372b787f5db3a0fec657b0c790 (patch) | |
| tree | acc5b0e5f5754ebbd91bf1306124fecfaf98cc12 | |
| parent | c688ce130414b10af92c1cfd7372216896c3c45a (diff) | |
| download | kaagum-330d89641c4dc5372b787f5db3a0fec657b0c790.tar.gz kaagum-330d89641c4dc5372b787f5db3a0fec657b0c790.tar.lz kaagum-330d89641c4dc5372b787f5db3a0fec657b0c790.zip | |
Only search regular files.
| -rw-r--r-- | kaagum/tools/base.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/kaagum/tools/base.scm b/kaagum/tools/base.scm index 5b86d11..84ce9d6 100644 --- a/kaagum/tools/base.scm +++ b/kaagum/tools/base.scm @@ -213,7 +213,12 @@ For example, to match all scheme (.scm) files, use \"\\.scm$\""))) (const #t) get-line <>))) - (remove binary-file? + (filter (lambda (file) + ;; Ensure file is a regular file and is + ;; not binary. + (and (eq? (stat:type (stat file)) + 'regular) + (not (binary-file? file)))) (files-recursively files-root files-pattern))))) #:title (lambda* (#:key pattern files-root files-pattern) (if files-pattern |