01/02: utils: Define 'target-ppc32?' predicate.

[guix-commits]

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

commit 7393764680fa68461dcac76a484d7103dc0f3540
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Aug 17 09:39:46 2021 +0300

    utils: Define 'target-ppc32?' predicate.
    
    * guix/utils.scm (target-ppc32?): New predicate.
---
 guix/utils.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/guix/utils.scm b/guix/utils.scm
index 0cf299f..32fcff7 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -7,7 +7,7 @@
 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;; Copyright © 2018, 2020 Marius Bakke <marius@gnu.org>
-;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
 ;;; Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>
@@ -94,6 +94,7 @@
             target-arm32?
             target-aarch64?
             target-arm?
+            target-ppc32?
             target-powerpc?
             target-64bit?
             cc-for-target
@@ -690,6 +691,10 @@ architecture (x86_64)?"
                                              (%current-system))))
   (or (target-arm32? target) (target-aarch64? target)))
 
+(define* (target-ppc32? #:optional (target (or (%current-target-system)
+                                               (%current-system))))
+  (string-prefix? "powerpc-" target))
+
 (define* (target-powerpc? #:optional (target (or (%current-target-system)
                                                  (%current-system))))
   (string-prefix? "powerpc" target))