aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-02-27 09:25:00 +0100
committerLudovic Courtès <ludo@gnu.org>2013-02-27 20:55:42 +0100
commitaaf4cb20adbb20b6c7ea9e421f89d0b7acba961a (patch)
treef3f187931e31b3fa8f3026117b039168973411ea
parent618cea694d92dd73482b2a08675c9dec84d512ac (diff)
downloadpatches-aaf4cb20adbb20b6c7ea9e421f89d0b7acba961a.tar
patches-aaf4cb20adbb20b6c7ea9e421f89d0b7acba961a.tar.gz
gnu: linux: Make `system->linux-architecture' public, and add ARM.
* gnu/packages/linux.scm (system->linux-architecture): Make public. Add "arm".
-rw-r--r--gnu/packages/linux.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 31e6c9bf73..b687e363f6 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -31,10 +31,13 @@
#:use-module (guix download)
#:use-module (guix build-system gnu))
-(define (system->linux-architecture arch)
+(define-public (system->linux-architecture arch)
+ "Return the Linux architecture name for ARCH, a Guix system name such as
+\"x86_64-linux\"."
(let ((arch (car (string-split arch #\-))))
(cond ((string=? arch "i686") "i386")
((string-prefix? "mips" arch) "mips")
+ ((string-prefix? "arm" arch) "arm")
(else arch))))
(define-public linux-libre-headers