Paste number 146218: untitled

Paste number 146218: untitled
Pasted by: civodul
When:6 years, 8 months ago
Share:Tweet this! | http://paste.lisp.org/+34TM
Channel:None
Paste contents:
Raw Source | XML | Display As
diff --git a/guix/build-system/python.scm b/guix/build-system/python.scm
index e8af9f8..119dc54 100644
--- a/guix/build-system/python.scm
+++ b/guix/build-system/python.scm
@@ -76,7 +76,10 @@ prepended to the name."
                                      (substring name (string-length old-prefix))
                                      name))))
           (arguments
-           (let ((arguments (package-arguments p)))
+           (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)))))
@@ -86,7 +89,8 @@ prepended to the name."
         p)))
 
 (define package-with-python2
-  (cut package-with-explicit-python <> (default-python2) "python-" "python2-"))
+  (cut package-with-explicit-python <> (delay (default-python2))
+       "python-" "python2-"))
 
 (define* (lower name
                 #:key source inputs native-inputs outputs system target

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.