10/18: gnu: prinseq: Set #:guile argument of 'wrap-script'.

[guix-commits]

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

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

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

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 7d8496e..3748398 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -7557,7 +7557,8 @@ experience substantial biological insertions and 
deletions.")
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (bin (string-append out "/bin"))
-                    (scripts (find-files "." "prinseq.*.pl")))
+                    (scripts (find-files "." "prinseq.*.pl"))
+                    (guile (search-input-file "bin/guile")))
                (substitute* scripts
                  (("\"perl -pe")
                   (string-append "\"" (which "perl") " -pe")))
@@ -7565,6 +7566,7 @@ experience substantial biological insertions and 
deletions.")
                            (chmod file #o555)
                            (install-file file bin)
                            (wrap-script (string-append bin "/" (basename file))
+                                        #:guile guile
                                         `("PERL5LIB" ":" prefix
                                           (,(getenv "PERL5LIB")))))
                          scripts)))))))