summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-07-17 11:07:28 +0200
committerLudovic Courtès <ludo@gnu.org>2013-07-17 11:07:28 +0200
commitc71493c8b9328ff3dbddf3b9430200ef4d174917 (patch)
treefcb18224eb881bb3e6ede127230460671b901822
parent1959fb04dc4608206bdcc6908ca3f0d71a43eda8 (diff)
downloadguix-c71493c8b9328ff3dbddf3b9430200ef4d174917.tar.gz
build: Check the availability of i686-linux binaries.
* build-aux/check-available-binaries.scm (%supported-systems): New
  variable.
  (native): Map over these.
-rw-r--r--build-aux/check-available-binaries.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/build-aux/check-available-binaries.scm b/build-aux/check-available-binaries.scm
index 5599e5e7b6..8fd64fe2cb 100644
--- a/build-aux/check-available-binaries.scm
+++ b/build-aux/check-available-binaries.scm
@@ -28,9 +28,14 @@
              (srfi srfi-1)
              (srfi srfi-26))
 
+(define %supported-systems
+  '("x86_64-linux" "i686-linux"))
+
 (let* ((store  (open-connection))
-       (native (map (cut package-derivation store <>)
-                    (list %bootstrap-tarballs emacs)))
+       (native (append-map (lambda (system)
+                             (map (cut package-derivation store <> system)
+                                  (list %bootstrap-tarballs emacs)))
+                           %supported-systems))
        (cross  (map (cut package-cross-derivation store
                          %bootstrap-tarballs <>)
                     '("mips64el-linux-gnuabi64")))