diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-07-17 11:07:28 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-07-17 11:07:28 +0200 |
commit | c71493c8b9328ff3dbddf3b9430200ef4d174917 (patch) | |
tree | fcb18224eb881bb3e6ede127230460671b901822 /build-aux/check-available-binaries.scm | |
parent | 1959fb04dc4608206bdcc6908ca3f0d71a43eda8 (diff) | |
download | guix-c71493c8b9328ff3dbddf3b9430200ef4d174917.tar guix-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.
Diffstat (limited to 'build-aux/check-available-binaries.scm')
-rw-r--r-- | build-aux/check-available-binaries.scm | 9 |
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"))) |