~ruther/guix-local: utils: Define 'target-hurd32?' predicate.

2b2a87f38b58aa1c5f7b5dd398f9241dcec18ff1 — Yelninei 5 months ago 9319d61

utils: Define 'target-hurd32?' predicate.

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

Change-Id: I19e5b2d4e76b1c5b8c233c21397b48daf9619239
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

patch browse .tar.gz

1 files changed, 7 insertions(+), 0 deletions(-)

M guix/utils.scm

M guix/utils.scm => guix/utils.scm +7 -0

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