From 42e41181502b1844263a9e0d50f6281444022576 Mon Sep 17 00:00:00 2001 From: Maxime Devos Date: Wed, 14 Jul 2021 13:12:48 +0200 Subject: utils: Give 'target-mingw?' a docstring. target-hurd? and target-linux? have docstrings, but target-mingw? doesn't. * guix/utils.scm (target-mingw?): Add a docstring. Reported-By: Mathieu Othacehe Signed-off-by: Mathieu Othacehe --- guix/utils.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'guix/utils.scm') diff --git a/guix/utils.scm b/guix/utils.scm index 8ae912c48b..fe1439a809 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -647,7 +647,11 @@ (define* (target-hurd? #:optional (target (or (%current-target-system) (not (string-contains target "linux")))) (define* (target-mingw? #:optional (target (%current-target-system))) + "Is the operating system of TARGET Windows?" (and target + ;; The "-32" doesn't mean TARGET is 32-bit, as "x86_64-w64-mingw32" + ;; is a valid triplet (see the (gnu ci) module) and 'w64' and 'x86_64' + ;; are 64-bit. (string-suffix? "-mingw32" target))) (define* (target-arm32? #:optional (target (or (%current-target-system) -- cgit v1.2.3