From 330d89641c4dc5372b787f5db3a0fec657b0c790 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 7 Nov 2026 01:43:47 +0000
Subject: Only search regular files.

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

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
-- 
cgit 1.4.1