~ruther/guix-local

58caebf0327aafe6240612f28c339f5a00cd2c92 — Ludovic Courtès 11 years ago 54e6128
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.
M build-aux/check-available-binaries.scm => build-aux/check-available-binaries.scm +1 -4
@@ 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)

M build-aux/check-final-inputs-self-contained.scm => build-aux/check-final-inputs-self-contained.scm +1 -4
@@ 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