summaryrefslogtreecommitdiff
path: root/tests/union.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-11 16:01:49 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-11 16:01:49 +0100
commit01e354eb83299d00ddd6ba4beb73bac8130beeae (patch)
tree03368edd8462d818334bec458cd04dc1de4750a1 /tests/union.scm
parentbfe384cc4c7e56ac1eceff8b5d92e916507436eb (diff)
parent28e55604212c01884a77a4f5eb66294c4957c48a (diff)
downloadgnu-guix-01e354eb83299d00ddd6ba4beb73bac8130beeae.tar
gnu-guix-01e354eb83299d00ddd6ba4beb73bac8130beeae.tar.gz
Merge branch 'core-updates'
Conflicts: guix/build/union.scm
Diffstat (limited to 'tests/union.scm')
-rw-r--r--tests/union.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/union.scm b/tests/union.scm
index a3859434a2..5bbf992a59 100644
--- a/tests/union.scm
+++ b/tests/union.scm
@@ -26,6 +26,7 @@
#:use-module ((guix build utils)
#:select (with-directory-excursion directory-exists?))
#:use-module (distro packages bootstrap)
+ #:use-module (srfi srfi-1)
#:use-module (srfi srfi-64)
#:use-module (ice-9 match))
@@ -93,7 +94,9 @@
(let* ((inputs (map (match-lambda
((name package)
`(,name ,(package-derivation %store package))))
- %bootstrap-inputs))
+ (delete-duplicates %bootstrap-inputs
+ (lambda (i1 i2)
+ (eq? (second i1) (second i2))))))
(builder `(begin
(use-modules (guix build union))
(union-build (assoc-ref %outputs "out")