From 2b2a87f38b58aa1c5f7b5dd398f9241dcec18ff1 Mon Sep 17 00:00:00 2001
From: Yelninei <yelninei@tutamail.com>
Date: Fri, 24 Oct 2025 14:52:13 +0000
Subject: [PATCH] utils: Define 'target-hurd32?' predicate.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* guix/utils.scm (target-hurd32?): New predicate.

Change-Id: I19e5b2d4e76b1c5b8c233c21397b48daf9619239
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/utils.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/guix/utils.scm b/guix/utils.scm
index 446627311a48fe32b01624f9d6dae3668777ab7f..9870b480f1d0f886657fd74450f8561d2664641c 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?"