amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Define 'target-hurd?' predicate.

Browse source 
It behaves similarily to the other target-...? procedures.
The usage of hurd-triplet? / target-hurd? in libgc appears
incorrect to me, as (%current-system) is normally never false.

* gnu/packages/hurd.scm (hurd-triplet?): Move to ...
* guix/util.scm (target-hurd?): ... here, let its argument
  default to (%current-target-system) or (%current-system),
  and write a docstring.
* gnu/packages/hurd.scm
  (hurd-target?, hurd-system?): Use target-hurd? instead of
  hurd-triplet?.
* gnu/packages/bdw-gc.scm (libgc): Likewise.
* gnu/packages/cross-base.scm
  (cross-libc)[arguments]<#:configure-flags>: Likewise.
  (cross-libc)[arguments]<#:phases>: Likewise.
  (cross-libc)[arguments]<#:native-inputs>: Likewise.
* gnu/packages/make-boostrap.scm
  (%glibc-stripped)[inputs]: Likewise.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Maxime Devos 2021-07-14 13:12:47 +02:00 • committed by Mathieu Othacehe
parent ef71965c16
commit 637a1e7dcc
No known key found for this signature in database
GPG key ID: 8354763531769CA6
5 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix/utils.scm
View file

@ -85,6 +85,7 @@
%current-target-system
package-name->name+version
target-linux?
target-hurd?
target-mingw?
target-arm32?
target-aarch64?
@ -639,6 +640,12 @@ a character other than '@'."
"Does the operating system of TARGET use the Linux kernel?"
(->bool (string-contains target "linux")))
(define* (target-hurd? #:optional (target (or (%current-target-system)
(%current-system))))
"Does TARGET represent the GNU(/Hurd) system?"
(and (string-suffix? "-gnu" target)
(not (string-contains target "linux"))))
(define* (target-mingw? #:optional (target (%current-target-system)))
(and target
(string-suffix? "-mingw32" target)))