~ruther/guix-local: build-system/python: Use 'ensure-keyword-arguments'.

f0907d97d43937d5bdde3b6440184325a80e0528 — Ludovic Courtès 10 years ago a4db2dd

build-system/python: Use 'ensure-keyword-arguments'.

* guix/build-system/python.scm (package-with-explicit-python): Use
'ensure-keyword-arguments'.

patch browse .tar.gz

1 files changed, 5 insertions(+), 8 deletions(-)

M guix/build-system/python.scm

M guix/build-system/python.scm => guix/build-system/python.scm +5 -8

@@ 101,14 101,11 @@ NEW-PREFIX; otherwise, NEW-PREFIX is prepended to the name."
                                                      (string-length old-prefix))
                                           name))))
                (arguments
-                (let ((arguments (package-arguments p))
-                      (python    (if (promise? python)
-                                     (force python)
-                                     python)))
-                  (if (member #:python arguments)
-                      (substitute-keyword-arguments arguments
-                        ((#:python p) python))
-                      (append arguments `(#:python ,python)))))
+                (let ((python (if (promise? python)
+                                  (force python)
+                                  python)))
+                  (ensure-keyword-arguments (package-arguments p)
+                                            `(#:python ,python))))
                (inputs (map rewrite (package-inputs p)))
                (propagated-inputs (map rewrite (package-propagated-inputs p)))
                (native-inputs (map rewrite (package-native-inputs p))))