[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/31: gnu: hurd: Fix hurd-target?, add hurd-system?.
From: |
guix-commits |
Subject: |
02/31: gnu: hurd: Fix hurd-target?, add hurd-system?. |
Date: |
Tue, 24 Mar 2020 18:38:46 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd
in repository guix.
commit 9b943db357ad63b7a3d063c658b1f557697ef0fa
Author: Jan Nieuwenhuizen <address@hidden>
AuthorDate: Wed Mar 4 11:49:46 2020 -0500
gnu: hurd: Fix hurd-target?, add hurd-system?.
* gnu/packages/hurd.scm (hurd-target?): Bugfix; the arguments to
string-suffix? to test (%current-system) were transposed, always resulting
in #f. Use hurd-triplet?.
(hurd-system?): New exported variable.
---
gnu/packages/hurd.scm | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index c147bac..59d5c31 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2018 Ludovic Courtès <address@hidden>
;;; Copyright © 2020 Efraim Flashner <address@hidden>
;;; Copyright © 2020 Marius Bakke <address@hidden>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -34,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)
@@ -45,7 +47,12 @@
"Return true if the cross-compilation target or the current system is
GNU/Hurd."
(or (and=> (%current-target-system) hurd-triplet?)
- (string-suffix? (%current-system) "-gnu")))
+ (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-"
- branch wip-hurd created (now 3d5bdf4), guix-commits, 2020/03/24
- 02/31: gnu: hurd: Fix hurd-target?, add hurd-system?.,
guix-commits <=
- 05/31: gnu: cross-libc: Build fix for the Hurd., guix-commits, 2020/03/24
- 12/31: gnu: commencement: gnumach-headers-boot0: Build from tarball., guix-commits, 2020/03/24
- 14/31: gnu: commencement: hurd-minimal-boot0: Build from tarball., guix-commits, 2020/03/24
- 06/31: Revert "gnu: guile-static-stripped: Update to 2.2.", guix-commits, 2020/03/24
- 09/31: gnu: bootstrap: Add support for the Hurd., guix-commits, 2020/03/24
- 04/31: gnu: glibc: Add signal SA_SIGINFO support for the Hurd., guix-commits, 2020/03/24
- 21/31: daemon: Avoid kill -1 bug on the Hurd., guix-commits, 2020/03/24
- 10/31: gnu: java-jansi-native: Compile fix for the Hurd., guix-commits, 2020/03/24
- 17/31: gnu: commencement: gnumach-headers-boot0: Update to 1.8-116-g28b53508., guix-commits, 2020/03/24
- 18/31: gnu: commencement: glibc-final: Allow gnumach-headers references., guix-commits, 2020/03/24