janneke pushed a commit to branch wip-mingw
in repository guile.
commit e2f9cfed6318ed85fd72315326c8ef76c4e5b725
Author: Jan (janneke) Nieuwenhuizen <[email protected]>
AuthorDate: Wed May 11 16:30:52 2022 +0200
REMOVEME mingw: Hardcode compile-time-file-name-convention to 'mingw.
FIXME Apply this patch only when compiling for mingw.
Temporary hack until we have a proper fix to determine
compile-time-file-name-convention
* module/ice-9/boot-9.scm (compile-time-file-name-convention): Hardcode
to 'mingw instead of 'posix.
---
module/ice-9/boot-9.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 198a887c1..c024cc095 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2062,7 +2062,7 @@ non-locally, that exit determines the continuation."
(eval-when (eval)
(define (compile-time-file-name-convention)
- (let ((target (or "FIXME" ((@ (system base target) target-type)))))
+ (let ((target (or "mingw" "FIXME" ((@ (system base target) target-type)))))
(cond ((equal? target %host-type)
(system-file-name-convention))
((string-contains-ci target "mingw")
