05/14: gnu: linux-libre: Add case for ARCH=mips.

[Mark H. Weaver]

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

commit 4cb15155d5c1f29e15a086f905e58af7525210e7
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 f03f061..f0331e9 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")))