janneke pushed a commit to branch wip-hurd
in repository guix.
commit d20cfd28b99b6ec53e64d73eba3e51581671ec28
Author: Jan Nieuwenhuizen <[email protected]>
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"))
