[Top][All Lists]

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

[Guile-commits] 14/16: REMOVEME mingw: Hardcode compile-time-file-name-c

From: Jan Nieuwenhuizen
Subject: [Guile-commits] 14/16: REMOVEME mingw: Hardcode compile-time-file-name-convention to 'mingw.
Date: Wed, 11 May 2022 17:45:23 -0400 (EDT)

janneke pushed a commit to branch wip-mingw
in repository guile.

commit db3f21a061ac3fc727e10f39b1d95e57110cd3bb
Author: Jan (janneke) Nieuwenhuizen <>
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
    * 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)
             ((string-contains-ci target "mingw")

reply via email to

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