diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-01-14 17:05:10 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2015-01-14 17:05:10 +0100 |
commit | 58caebf0327aafe6240612f28c339f5a00cd2c92 (patch) | |
tree | 9fe11a5472f2dca4aa068593ac99d4695e5fee52 /build-aux | |
parent | 54e612818b3ec5b1687d6d52c75b967a72bd5051 (diff) |
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.scm | 5 | ||||
-rw-r--r-- | build-aux/check-final-inputs-self-contained.scm | 5 |
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 |