From mboxrd@z Thu Jan  1 00:00:00 1970
From: Mark H Weaver <mhw@netris.org>
Subject: bug#18221: Source of mit-scheme
Date: Wed, 13 Aug 2014 15:22:28 -0400
Message-ID: <87wqacry8b.fsf@yeeloong.lan>
References: <20140808074757.GA13320@debian>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:59081)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1XHe9Z-0004cc-BH
	for bug-guix@gnu.org; Wed, 13 Aug 2014 15:24:15 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1XHe9T-0001bQ-34
	for bug-guix@gnu.org; Wed, 13 Aug 2014 15:24:09 -0400
Received: from debbugs.gnu.org ([140.186.70.43]:35300)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1XHe9S-0001bI-W4
	for bug-guix@gnu.org; Wed, 13 Aug 2014 15:24:03 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1XHe9S-0006a0-CY
	for bug-guix@gnu.org; Wed, 13 Aug 2014 15:24:02 -0400
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-Message-ID: <handler.18221.B18221.140795781025246@debbugs.gnu.org>
In-Reply-To: <20140808074757.GA13320@debian> (Andreas Enge's message of "Fri,
	8 Aug 2014 09:47:57 +0200")
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
To: Andreas Enge <andreas@enge.fr>
Cc: 18221@debbugs.gnu.org

Andreas Enge <andreas@enge.fr> writes:

> Hello,
>
> mit-scheme fails to build on mips64el-linux, because specific source is not
> downloaded for this system. Furthermore, I wonder if in the corresponding
> lines
>   (match (%current-system)
>     ("x86_64-linux" "x86-64")
>     ("i686-linux" "i386")
>     (_ "c"))
> one need not also check for the target system in the usual manner.
> Here the "c" should be the empty string, I think, and the preceding "-"
> should be included into "x86-64" and "i386".

I'm not sure I understand what you're suggesting.

The problem here is that the "c" belongs in a different place in the
filename than where the "i386" or "x86-64" goes.  The filenames are:

  mit-scheme-9.2-i386.tar.gz
  mit-scheme-9.2-x86-64.tar.gz
  mit-scheme-c-9.2.tar.gz

So I guess we need something like this (untested):

  (uri (string-append "mirror://gnu/mit-scheme/stable.pkg/"
                      version "/mit-scheme-"
                      (match (%current-system)
                        ("x86_64-linux"
                         (string-append version "-x86-64"))
                        ("i686-linux"
                         (string-append version "-i386"))
                        (_
                         (string-append "c-" version)))
                      ".tar.gz"))

    Thanks,
      Mark