bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Define 'target-hurd32?' predicate.

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

Change-Id: I19e5b2d4e76b1c5b8c233c21397b48daf9619239
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Yelninei 2025-10-24 14:52:13 +00:00 • committed by Ludovic Courtès
parent 9319d612cb
commit 2b2a87f38b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/utils.scm
View file

@ -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?"