summaryrefslogtreecommitdiff
path: root/guix/build-system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-05-25 15:35:36 +0200
committerLudovic Courtès <ludo@gnu.org>2013-05-25 15:35:36 +0200
commitee4d7368818288f93afdcb80d696cc859b2106c8 (patch)
tree1cc7d7971fb57ed97343bfbc633990bbe2faf4b8 /guix/build-system
parent2ee5f56b4d0a5913632ae9a2075b9645e704f7e2 (diff)
build-system/gnu: Make sure build input variables contain pairs.
* guix/build-system/gnu.scm (gnu-cross-build)[builder]: Make sure %build-host-inputs and %build-target-inputs always contain pairs, not lists.
Diffstat (limited to 'guix/build-system')
-rw-r--r--guix/build-system/gnu.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm
index 4d06a8b583..86c49a6d6e 100644
--- a/guix/build-system/gnu.scm
+++ b/guix/build-system/gnu.scm
@@ -384,7 +384,8 @@ platform."
((name (? derivation-path? drv-path) sub ...)
`(,name . ,(apply derivation-path->output-path
drv-path sub)))
- (x x))
+ ((name path)
+ `(,name . ,path)))
(append (or implicit-host-inputs '()) native-inputs)))
(define %build-target-inputs
@@ -392,7 +393,8 @@ platform."
((name (? derivation-path? drv-path) sub ...)
`(,name . ,(apply derivation-path->output-path
drv-path sub)))
- (x x))
+ ((name path)
+ `(,name . ,path)))
(append (or implicit-target-inputs) inputs)))
(gnu-build #:source ,(if (and source (derivation-path? source))