01/15: gnu: linux-libre: Add case for ARCH=mips.

[Mark H. Weaver]

mhw pushed a commit to branch wip-loongson2f
in repository guix.

commit 69364f06a886593cb5d72aae7bcd96179ff8315d
Author: Mark H Weaver <address@hidden>
Date:   Thu Aug 6 18:15:51 2015 -0400

    gnu: linux-libre: Add case for ARCH=mips.
    
    * gnu/packages/linux.scm (linux-libre)[build-phase]: When setting ARCH, add 
a
      case for MIPS.
---
 gnu/packages/linux.scm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index e9c74e8..07e801b 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -220,6 +220,7 @@ for SYSTEM, or #f if there is no configuration for SYSTEM."
              (let ((arch (car (string-split system #\-))))
                (setenv "ARCH"
                        (cond ((string=? arch "i686") "i386")
+                             ((string=? arch "mips64el") "mips")
                              (else arch)))
                (format #t "`ARCH' set to `~a'~%" (getenv "ARCH")))