From aaf4cb20adbb20b6c7ea9e421f89d0b7acba961a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 27 Feb 2013 09:25:00 +0100
Subject: [PATCH] gnu: linux: Make `system->linux-architecture' public, and add
 ARM.

* gnu/packages/linux.scm (system->linux-architecture): Make public.  Add
  "arm".
---
 gnu/packages/linux.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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