me
/
guix
Archived
1
0
Fork 0
Code

build: Check the availability of i686-linux binaries. 

* build-aux/check-available-binaries.scm (%supported-systems): New
  variable.
  (native): Map over these.
master
Ludovic Courtès 2013-07-17 11:07:28 +02:00
parent 1959fb04dc
commit c71493c8b9
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
build-aux/check-available-binaries.scm
View File

@ -28,9 +28,14 @@
(srfi srfi-1) (srfi srfi-1)
(srfi srfi-26)) (srfi srfi-26))
(define %supported-systems
'("x86_64-linux" "i686-linux"))
(let* ((store (open-connection)) (let* ((store (open-connection))
(native (map (cut package-derivation store <>) (native (append-map (lambda (system)
(list %bootstrap-tarballs emacs))) (map (cut package-derivation store <> system)
(list %bootstrap-tarballs emacs)))
%supported-systems))
(cross (map (cut package-cross-derivation store (cross (map (cut package-cross-derivation store
%bootstrap-tarballs <>) %bootstrap-tarballs <>)
'("mips64el-linux-gnuabi64"))) '("mips64el-linux-gnuabi64")))