guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

03/22: utils: Give 'target-mingw?' a docstring.


From: guix-commits
Subject: 03/22: utils: Give 'target-mingw?' a docstring.
Date: Wed, 14 Jul 2021 13:20:47 -0400 (EDT)

mothacehe pushed a commit to branch core-updates
in repository guix.

commit 42e41181502b1844263a9e0d50f6281444022576
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Jul 14 13:12:48 2021 +0200

    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 <othacehe@gnu.org>
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 guix/utils.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/utils.scm b/guix/utils.scm
index 8ae912c..fe1439a 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -647,7 +647,11 @@ a character other than '@'."
        (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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]