branch master updated: gnu: cl-py4cl: Improve package definition.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

glv pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 59377f88ed gnu: cl-py4cl: Improve package definition.
59377f88ed is described below

commit 59377f88ed1e31d38b34279f393949bf17e505ad
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Tue Apr 12 15:08:08 2022 +0200

    gnu: cl-py4cl: Improve package definition.
    
    This is a follow-up to 917c25b3ba0575c6c6e44f8af0d1365bb2378220.
    
    * gnu/packages/lisp-xyz.scm (sbcl-py4cl)[propagated-inputs]: Move python
      to...
      [inputs]: ... here.
      [arguments]: Use 'search-input-file' instead of 'which' in
      'fix-python3-path' phase.
---
 gnu/packages/lisp-xyz.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 0065f56e7e..75b299152a 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -5172,21 +5172,21 @@ port within a range.")
       (native-inputs
        (list sbcl-clunit))
       (inputs
-       (list sbcl-trivial-garbage))
+       (list python sbcl-trivial-garbage))
       (propagated-inputs
-       ;; This package doesn't do anything without python available
-       (list python
-             ;; For multi-dimensional array support
+       (list ;; For multi-dimensional array support
              python-numpy))
       (arguments
        '(#:phases
          (modify-phases %standard-phases
            (add-after 'unpack 'fix-python3-path
-             (lambda _
+             (lambda* (#:key inputs #:allow-other-keys)
                (substitute* "src/callpython.lisp"
                  (("\\*python-command\\* \"python\"")
                   (string-append "*python-command* "
-                                 "\"" (which "python3") "\"")))))
+                                 "\""
+                                 (search-input-file inputs "/bin/python3")
+                                 "\"")))))
            (add-after 'unpack 'replace-*base-directory*-var
              (lambda* (#:key outputs #:allow-other-keys)
                ;; In the ASD, the author makes an attempt to