summaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-01-14 17:05:10 +0100
committerLudovic Courtès <ludo@gnu.org>2015-01-14 17:05:10 +0100
commit58caebf0327aafe6240612f28c339f5a00cd2c92 (patch)
tree9fe11a5472f2dca4aa068593ac99d4695e5fee52 /build-aux
parent54e612818b3ec5b1687d6d52c75b967a72bd5051 (diff)
downloadguix-58caebf0327aafe6240612f28c339f5a00cd2c92.tar.gz
guix-58caebf0327aafe6240612f28c339f5a00cd2c92.tar.xz
build: Use the canonical list of supported systems in 'assert-*'.
* build-aux/check-available-binaries.scm (%supported-systems): Remove. * build-aux/check-final-inputs-self-contained.scm (%supported-systems): Remove.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/check-available-binaries.scm5
-rw-r--r--build-aux/check-final-inputs-self-contained.scm5
2 files changed, 2 insertions, 8 deletions
diff --git a/build-aux/check-available-binaries.scm b/build-aux/check-available-binaries.scm
index d5163a9503..74a43ff1d8 100644
--- a/build-aux/check-available-binaries.scm
+++ b/build-aux/check-available-binaries.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -28,9 +28,6 @@
(srfi srfi-1)
(srfi srfi-26))
-(define %supported-systems
- '("x86_64-linux" "i686-linux"))
-
(let* ((store (open-connection))
(native (append-map (lambda (system)
(map (cut package-derivation store <> system)
diff --git a/build-aux/check-final-inputs-self-contained.scm b/build-aux/check-final-inputs-self-contained.scm
index ade4e98001..ca7e8030b4 100644
--- a/build-aux/check-final-inputs-self-contained.scm
+++ b/build-aux/check-final-inputs-self-contained.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -29,9 +29,6 @@
(srfi srfi-1)
(srfi srfi-26))
-(define %supported-systems
- '("x86_64-linux" "i686-linux"))
-
(define (final-inputs store system)
"Return the list of outputs directories of the final inputs for SYSTEM."
(append-map (match-lambda