TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gnu: linux: Make `system->linux-architecture' public, and add ARM. 

* gnu/packages/linux.scm (system->linux-architecture): Make public.  Add
  "arm".
This commit is contained in:
Ludovic Courtès 2013-02-27 09:25:00 +01:00
parent 618cea694d
commit aaf4cb20ad
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/packages/linux.scm
View File

@ -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