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:
parent
a4db2dd99f
commit
f0907d97d4
|
@ -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))))
|
||||||
|
|
Loading…
Reference in New Issue