From ddb46629ba825ff4501528cfa1de07cb077ea6d3 Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Sun, 11 Dec 2022 15:03:42 +0200
Subject: gn: Fix building genenetwork1

---
 gn/past/genenetwork1.scm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

(limited to 'gn/past/genenetwork1.scm')

diff --git a/gn/past/genenetwork1.scm b/gn/past/genenetwork1.scm
index c557ee7..c629c7e 100644
--- a/gn/past/genenetwork1.scm
+++ b/gn/past/genenetwork1.scm
@@ -110,15 +110,22 @@ location of a putative QTL.")
        `(#:python ,python-2.4
          #:phases
          (modify-phases %standard-phases
+           (replace 'add-install-to-pythonpath
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+               (setenv "PYTHONPATH"
+                       (string-append (site-packages inputs outputs) ":"
+                                      (getenv "PYTHONPATH")))))
+           (delete 'sanity-check)       ; Not applicable to python-2.4
            (add-after 'unpack 'make-max-markername-size-larger
              (lambda _
                (substitute* "Src/dataset.c"
-                 (("512") "2048"))
-               #t))
+                 (("512") "2048"))))
            (replace 'check
-             (lambda* (#:key inputs outputs #:allow-other-keys)
-               (add-installed-pythonpath inputs outputs)
-               (invoke "python" "test/runtest.py"))))))
+             (lambda* (#:key tests? inputs outputs #:allow-other-keys)
+               (when tests?
+                 (setenv "PYTHONPATH" (string-append (site-packages inputs outputs) ":"
+                                                     (getenv "PYTHONPATH")))
+                 (invoke "python" "test/runtest.py")))))))
       (native-inputs
        `(("python24-setuptools" ,python24-setuptools)))
       (home-page "http://qtlreaper.sourceforge.net/")
-- 
cgit v1.2.3