diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-02-27 09:25:00 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-02-27 20:55:42 +0100 |
commit | aaf4cb20adbb20b6c7ea9e421f89d0b7acba961a (patch) | |
tree | f3f187931e31b3fa8f3026117b039168973411ea | |
parent | 618cea694d92dd73482b2a08675c9dec84d512ac (diff) | |
download | patches-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.scm | 5 |
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 |