From c71493c8b9328ff3dbddf3b9430200ef4d174917 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 17 Jul 2013 11:07:28 +0200
Subject: [PATCH] build: Check the availability of i686-linux binaries.
* build-aux/check-available-binaries.scm (%supported-systems): New
variable.
(native): Map over these.
---
build-aux/check-available-binaries.scm | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/build-aux/check-available-binaries.scm b/build-aux/check-available-binaries.scm
index 5599e5e7b63..8fd64fe2cb4 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")))
--
GitLab