09/18: gnu: proteinortho: Set #:guile argument of 'wrap-script'.

[guix-commits]

civodul pushed a commit to branch core-updates
in repository guix.

commit fadbac0ecc7b7ca314a265de5a1eae07946c0d61
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon May 31 19:46:22 2021 +0200

    gnu: proteinortho: Set #:guile argument of 'wrap-script'.
    
    * gnu/packages/bioinformatics.scm
      (proteinortho)[arguments]<#:phases>{wrap-programs}:
      Set #:guile argument of ‘wrap-script’.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/bioinformatics.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 85f7859..7d8496e 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -5447,9 +5447,11 @@ predicts the locations of structural units in the 
sequences.")
          (add-after 'install 'wrap-programs
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((path (getenv "PATH"))
-                   (out (assoc-ref outputs "out")))
+                   (out (assoc-ref outputs "out"))
+                   (guile (search-input-file inputs "bin/guile")))
                (for-each (lambda (script)
-                           (wrap-script script `("PATH" ":" prefix (,path))))
+                           (wrap-script script #:guile guile
+                                        `("PATH" ":" prefix (,path))))
                          (cons (string-append out "/bin/proteinortho")
                                (find-files out "\\.(pl|py)$"))))
              #t)))))