Browse Source

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

* gnu/packages/linux.scm (system->linux-architecture): Make public.  Add
  "arm".
gn-latest-20200428
Ludovic Courtès 8 years ago
parent
commit
aaf4cb20ad
1 changed files with 4 additions and 1 deletions
  1. +4
    -1
      gnu/packages/linux.scm

+ 4
- 1
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


Loading…
Cancel
Save