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: Give 'target-mingw?' a docstring.

Browse source 
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>
This commit is contained in:
Maxime Devos 2021-07-14 13:12:48 +02:00 • committed by Mathieu Othacehe
parent 637a1e7dcc
commit 42e4118150
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix/utils.scm
View file

@ -647,7 +647,11 @@ a character other than '@'."
(not (string-contains target "linux")))) (not (string-contains target "linux"))))
(define* (target-mingw? #:optional (target (%current-target-system))) (define* (target-mingw? #:optional (target (%current-target-system)))
"Is the operating system of TARGET Windows?"
(and target (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))) (string-suffix? "-mingw32" target)))
(define* (target-arm32? #:optional (target (or (%current-target-system) (define* (target-arm32? #:optional (target (or (%current-target-system)