From d1e9f626b4d6230fa41db920cf87af9281ffe5de Mon Sep 17 00:00:00 2001
From: Marius Bakke <marius@gnu.org>
Date: Tue, 5 Jul 2022 22:46:46 +0200
Subject: 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++")))
 
-- 
cgit v1.2.3