amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
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 download)
#:use-module (guix build-system gnu)) #: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 #\-)))) (let ((arch (car (string-split arch #\-))))
(cond ((string=? arch "i686") "i386") (cond ((string=? arch "i686") "i386")
((string-prefix? "mips" arch) "mips") ((string-prefix? "mips" arch) "mips")
((string-prefix? "arm" arch) "arm")
(else arch)))) (else arch))))
(define-public linux-libre-headers (define-public linux-libre-headers