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

* guix/build-system/python.scm (package-with-explicit-python): Use
'ensure-keyword-arguments'.
This commit is contained in:
Ludovic Courtès 2016-01-31 23:25:27 +01:00
parent a4db2dd99f
commit f0907d97d4
1 changed files with 5 additions and 8 deletions

View File

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