From 12cd1e0aa3d7be1ae0e7aa2b179246851f9ebbe7 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 1 Apr 2026 10:07:08 +0200
Subject: fix (edirect)

---
 guix.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/guix.scm b/guix.scm
index 2a1b1c1..5530c24 100644
--- a/guix.scm
+++ b/guix.scm
@@ -224,7 +224,9 @@ GeneCup with four gene symbols (gria1, crhr1, drd2, and penk).")
               (let* ((out (assoc-ref outputs "out"))
                      (bin (string-append out "/bin"))
                      (coreutils (assoc-ref inputs "coreutils")))
-                ;; Don't wrap .sh (sourced) or .Linux (Go binaries)
+                ;; Only wrap scripts directly in bin/, not in
+                ;; subdirs (extern/ scripts are sourced, not executed).
+                ;; Skip .sh (sourced) and .Linux (Go binaries).
                 (for-each
                   (lambda (f)
                     (wrap-program f
@@ -232,7 +234,8 @@ GeneCup with four gene symbols (gria1, crhr1, drd2, and penk).")
                         (,bin ,(string-append coreutils "/bin")))))
                   (filter
                     (lambda (f)
-                      (and (not (string-suffix? ".sh" f))
+                      (and (string=? (dirname f) bin)
+                           (not (string-suffix? ".sh" f))
                            (not (string-suffix? ".Linux" f))))
                     (find-files bin)))
                 ;; wrap-program renames xtract -> .xtract-real, but the
-- 
cgit 1.4.1