tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

utils: Define 'target-x86?' predicate.

Browse Source 
* guix/utils.scm (target-x86?): New predicate.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Denis 'GNUtoo' Carikli
2022-05-10 01:24:50 +02:00
committed by Mathieu Othacehe
parent 14518fcc54
commit 242fad357e
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
guix/utils.scm
View File

@@ -14,6 +14,7 @@
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2018 Steve Sprang <scs@stevesprang.com>
;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -92,6 +93,7 @@
target-mingw?
target-x86-32?
target-x86-64?
target-x86?
target-arm32?
target-aarch64?
target-arm?
@@ -697,6 +699,10 @@ a character other than '@'."
architecture (x86_64)?"
(string-prefix? "x86_64-" target))
(define* (target-x86? #:optional (target (or (%current-target-system)
(%current-system))))
(or (target-x86-32? target) (target-x86-64? target)))
(define* (target-arm32? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "arm" target))