[bug#29409] [PATCH] utils: Add target-arm? procedure.

[m . othacehe]

From: Mathieu Othacehe <address@hidden>

* guix/utils.scm (target-arm?): New exported procedure.
---

Hi,

This procedure may be replaced by let-system when operational, see :

https://lists.nongnu.org/archive/html/guix-patches/2017-11/msg00274.html

Thanks,

Mathieu

 guix/utils.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/utils.scm b/guix/utils.scm
index c0ffed1..9c652b6 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -75,6 +75,7 @@
             %current-target-system
             package-name->name+version
             target-mingw?
+            target-arm?
             version-compare
             version>?
             version>=?
@@ -467,6 +468,9 @@ a character other than '@'."
   (and target
        (string-suffix? "-mingw32" target)))
 
+(define (target-arm?)
+  (string-prefix? "arm" (or (%current-target-system) (%current-system))))
+
 (define version-compare
   (let ((strverscmp
          (let ((sym (or (dynamic-func "strverscmp" (dynamic-link))
-- 
2.7.4