06/33: gnu: hurd: Add hurd-system?.

[guix-commits]

janneke pushed a commit to branch wip-hurd
in repository guix.

commit d20cfd28b99b6ec53e64d73eba3e51581671ec28
Author: Jan Nieuwenhuizen <address@hidden>
AuthorDate: Mon Mar 9 13:35:01 2020 +0100

    gnu: hurd: Add hurd-system?.
    
    * gnu/packages/hurd.scm (hurd-system?): New exported variable.
---
 gnu/packages/hurd.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index af59f22..59d5c31 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -35,8 +35,9 @@
   #:use-module (gnu packages base)
   #:use-module (gnu packages texinfo)
   #:use-module (guix git-download)
-  #:export (hurd-triplet?
-            hurd-target?))
+  #:export (hurd-system?
+            hurd-target?
+            hurd-triplet?))
 
 (define (hurd-triplet? triplet)
   (and (string-suffix? "-gnu" triplet)
@@ -49,6 +50,10 @@ GNU/Hurd."
       (and (not (%current-target-system))
            (and=> (%current-system) hurd-triplet?))))
 
+(define (hurd-system?)
+  "Return true if the current system is the Hurd."
+  (and=> (%current-system) hurd-triplet?))
+
 (define (hurd-source-url version)
   (string-append "mirror://gnu/hurd/hurd-"
                  version ".tar.gz"))