From f0907d97d43937d5bdde3b6440184325a80e0528 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 31 Jan 2016 23:25:27 +0100 Subject: [PATCH] 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 file changed, 5 insertions(+), 8 deletions(-) diff --git a/guix/build-system/python.scm b/guix/build-system/python.scm index 86efc1a715..9a80bd6799 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))))