me
/
guix
Archived
1
0
Fork 0
Code

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>
master
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

4
guix/utils.scm
View File

@ -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)