guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 2b2a87f38b58aa1c5f7b5dd398f9241dcec18ff1
Author: Yelninei <[email protected]>
AuthorDate: Fri Oct 24 14:52:13 2025 +0000
utils: Define 'target-hurd32?' predicate.
* guix/utils.scm (target-hurd32?): New predicate.
Change-Id: I19e5b2d4e76b1c5b8c233c21397b48daf9619239
Signed-off-by: Ludovic Courtès <[email protected]>
---
guix/utils.scm | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/guix/utils.scm b/guix/utils.scm
index 446627311a..9870b480f1 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -95,6 +95,7 @@
target-linux?
target-hurd?
system-hurd?
+ target-hurd32?
target-hurd64?
system-hurd64?
host-hurd?
@@ -744,6 +745,12 @@ a character other than '@'."
"Is the current system the GNU(/Hurd) system?"
(and=> (%current-system) target-hurd?))
+(define* (target-hurd32? #:optional (target (or (%current-target-system)
+ (%current-system))))
+ "Does TARGET represent the 32bit GNU(/Hurd) system?"
+ (and (target-hurd? target)
+ (not (target-64bit? target))))
+
(define* (target-hurd64? #:optional (target (or (%current-target-system)
(%current-system))))
"Does TARGET represent the 64bit GNU(/Hurd) system?"
