diff options
| author | Maxime Devos <maximedevos@telenet.be> | 2021-07-14 13:12:48 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-07-14 15:38:03 +0200 |
| commit | 42e41181502b1844263a9e0d50f6281444022576 (patch) | |
| tree | d2fbef4cbe0ec1ca7f7c604c9c743cfcb3c609e2 | |
| parent | 637a1e7dcce4d1a2c4f2f9c478df4a640ae1f230 (diff) | |
| download | guix-42e41181502b1844263a9e0d50f6281444022576.tar.gz guix-42e41181502b1844263a9e0d50f6281444022576.zip | |
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>
| -rw-r--r-- | guix/utils.scm | 4 |
1 files changed, 4 insertions, 0 deletions
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 @@ 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) |