summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2021-08-17 12:41:44 +0300
committerEfraim Flashner <efraim@flashner.co.il>2021-08-17 12:41:44 +0300
commitab18997f1c78f5b453ab50937b646089bb4588b1 (patch)
tree88d292f0c6ffc34d05de8e66688b4ddbb15e32e8 /guix
parent3567b916d309e3ce3038c001707839094505a905 (diff)
utils: Define target-ppc64le? predicate.
* guix/utils.scm (target-ppc64le?): New predicate.
Diffstat (limited to 'guix')
-rw-r--r--guix/utils.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index 32fcff72ea..3f253d6cd8 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))