utils: Actually check the target in target-hurd64?.

* guix/utils.scm (target-hurd64?): Check the target argument.

Change-Id: Ic303e7d6e8284767c2a55411c68c043c3d18c04f
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Yelninei 2025-10-24 15:01:49 +00:00 committed by Ludovic Courtès
parent 991719784a
commit 9319d612cb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -747,7 +747,7 @@ a character other than '@'."
(define* (target-hurd64? #:optional (target (or (%current-target-system)
(%current-system))))
"Does TARGET represent the 64bit GNU(/Hurd) system?"
(and (target-hurd?)
(and (target-hurd? target)
(target-64bit? target)))
(define* (system-hurd64?)