01/02: utils: Define target-ppc64le? predicate.

[guix-commits]

efraim pushed a commit to branch core-updates-frozen
in repository guix.

commit ab18997f1c78f5b453ab50937b646089bb4588b1
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Aug 17 12:41:44 2021 +0300

    utils: Define target-ppc64le? predicate.
    
    * guix/utils.scm (target-ppc64le?): New predicate.
---
 guix/utils.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/utils.scm b/guix/utils.scm
index 32fcff7..3f253d6 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -95,6 +95,7 @@
             target-aarch64?
             target-arm?
             target-ppc32?
+            target-ppc64le?
             target-powerpc?
             target-64bit?
             cc-for-target
@@ -695,6 +696,10 @@ architecture (x86_64)?"
                                                (%current-system))))
   (string-prefix? "powerpc-" target))
 
+(define* (target-ppc64le? #:optional (target (or (%current-target-system)
+                                               (%current-system))))
+  (string-prefix? "powerpc64le-" target))
+
 (define* (target-powerpc? #:optional (target (or (%current-target-system)
                                                  (%current-system))))
   (string-prefix? "powerpc" target))