diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2021-08-17 12:41:44 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2021-08-17 12:41:44 +0300 |
| commit | ab18997f1c78f5b453ab50937b646089bb4588b1 (patch) | |
| tree | 88d292f0c6ffc34d05de8e66688b4ddbb15e32e8 | |
| parent | 3567b916d309e3ce3038c001707839094505a905 (diff) | |
| download | guix-ab18997f1c78f5b453ab50937b646089bb4588b1.tar.gz guix-ab18997f1c78f5b453ab50937b646089bb4588b1.zip | |
utils: Define target-ppc64le? predicate.
* guix/utils.scm (target-ppc64le?): New predicate.
| -rw-r--r-- | guix/utils.scm | 5 |
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)) |