mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 12:00:21 +02:00
Code Activity

REMOVEME mingw: Hardcode compile-time-file-name-convention to 'mingw.

Browse source 
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.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2022-05-11 16:30:52 +02:00 • committed by Michael Gran
parent 2c957102ce
commit 3caa459f1f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -2062,7 +2062,7 @@ non-locally, that exit determines the continuation."
(eval-when (eval) (eval-when (eval)
(define (compile-time-file-name-convention) (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) (cond ((equal? target %host-type)
(system-file-name-convention)) (system-file-name-convention))
((string-contains-ci target "mingw") ((string-contains-ci target "mingw")