10/15: gnu: boost-mpi: Remove input labels.

[guix-commits]

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

commit d1e9f626b4d6230fa41db920cf87af9281ffe5de
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Tue Jul 5 22:46:46 2022 +0200

    gnu: boost-mpi: Remove input labels.
    
    * gnu/packages/boost.scm (boost-mpi)[native-inputs]: Use MODIFY-INPUTS and
    remove labels.
    [arguments]: Use G-expression.
---
 gnu/packages/boost.scm | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm
index 86ce7e0313..89d3379d03 100644
--- a/gnu/packages/boost.scm
+++ b/gnu/packages/boost.scm
@@ -428,21 +428,18 @@ signals and slots system.")
     (inherit boost)
     (name "boost-mpi")
     (native-inputs
-     `(("perl" ,perl)
-       ,@(if (%current-target-system)
-             '()
-             `(("python" ,python-wrapper)))
-       ("openmpi" , openmpi)))
+     (modify-inputs (package-native-inputs boost)
+       (append openmpi)))
     (arguments
      (substitute-keyword-arguments (package-arguments boost)
-      ((#:phases phases)
-       `(modify-phases ,phases
-          (add-after 'configure 'update-jam
-            (lambda* (#:key inputs outputs #:allow-other-keys)
-              (let ((output-port (open-file "project-config.jam" "a")))
-                (display "using mpi ;" output-port)
-                (newline output-port)
-                (close output-port))))))))
+       ((#:phases phases)
+        #~(modify-phases #$phases
+            (add-after 'configure 'update-jam
+              (lambda* (#:key inputs outputs #:allow-other-keys)
+                (let ((output-port (open-file "project-config.jam" "a")))
+                  (display "using mpi ;" output-port)
+                  (newline output-port)
+                  (close output-port))))))))
     (home-page "https://www.boost.org";)
     (synopsis "Message Passing Interface (MPI) library for C++")))