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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit f0907d97d43937d5bdde3b6440184325a80e0528
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jan 31 23:25:27 2016 +0100

    build-system/python: Use 'ensure-keyword-arguments'.
    
    * guix/build-system/python.scm (package-with-explicit-python): Use
    'ensure-keyword-arguments'.
---
 guix/build-system/python.scm |   13 +++++--------
 1 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/guix/build-system/python.scm b/guix/build-system/python.scm
index 86efc1a..9a80bd6 100644
--- a/guix/build-system/python.scm
+++ b/guix/build-system/python.scm
@@ -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))))