15/19: gnu: mafft: Replace references to %build-inputs and %outputs.

[guix-commits]

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

commit 630671d2e8c5f24bd14b7ea581108f76a54b2865
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sat Dec 4 00:21:27 2021 +0100

    gnu: mafft: Replace references to %build-inputs and %outputs.
    
    * gnu/packages/bioinformatics.scm (mafft)[arguments]: Replace references to
    %outputs with a gexp; replace reference to %build-inputs in the 
'wrap-programs
    phase by binding INPUTS.
---
 gnu/packages/bioinformatics.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 9d8a33d..0c75169 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -5221,10 +5221,9 @@ sequencing tag position and orientation.")
     (build-system gnu-build-system)
     (arguments
      `(#:tests? #f ; no automated tests, though there are tests in the read me
-       #:make-flags (let ((out (assoc-ref %outputs "out")))
-                      (list (string-append "PREFIX=" out)
-                            (string-append "BINDIR="
-                                           (string-append out "/bin"))))
+       #:make-flags ,#~(list (string-append "PREFIX=" #$output)
+                             (string-append "BINDIR="
+                                            (string-append #$output "/bin")))
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'enter-dir
@@ -5264,11 +5263,11 @@ sequencing tag position and orientation.")
              #t))
          (delete 'configure)
          (add-after 'install 'wrap-programs
-           (lambda* (#:key outputs #:allow-other-keys)
+           (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (bin (string-append out "/bin"))
                     (path (string-append
-                           (assoc-ref %build-inputs "coreutils") "/bin:")))
+                           (assoc-ref inputs "coreutils") "/bin:")))
                (for-each (lambda (file)
                            (wrap-program file
                              `("PATH" ":" prefix (,path))))