From 58caebf0327aafe6240612f28c339f5a00cd2c92 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 14 Jan 2015 17:05:10 +0100 Subject: 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. --- build-aux/check-available-binaries.scm | 5 +---- build-aux/check-final-inputs-self-contained.scm | 5 +---- 2 files changed, 2 insertions(+), 8 deletions(-) (limited to 'build-aux') 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 +;;; Copyright © 2013, 2014, 2015 Ludovic Courtès ;;; ;;; 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 +;;; Copyright © 2014, 2015 Ludovic Courtès ;;; ;;; 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 -- cgit v1.2.3