GNU bug report logs - #29409
GuixSD ARM port.

Previous Next

Package: guix-patches;

Reported by: Mathieu Othacehe <m.othacehe <at> gmail.com>

Date: Thu, 23 Nov 2017 09:46:01 UTC

Severity: normal

Done: Danny Milosavljevic <dannym <at> scratchpost.org>

Bug is archived. No further changes may be made.

Full log

Message #51 received at 29409 <at> debbugs.gnu.org (full text, mbox):

From: m.othacehe <at> gmail.com
To: 29409 <at> debbugs.gnu.org
Cc: Mathieu Othacehe <m.othacehe <at> gmail.com>
Subject: [PATCH] utils: Add target-arm? procedure.
Date: Wed, 29 Nov 2017 15:20:25 +0100

From: Mathieu Othacehe <m.othacehe <at> gmail.com>

* 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
This bug report was last modified 7 years and 108 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.