mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Revert "squash! Fix 'absolute-file-name?' and others for cross-build to MinGW."

Browse source 
This reverts commit a841ba1a6a5c4d6f5a6b77cb090a92a0a53ab327.
This commit is contained in:
Michael Gran 2022-11-10 06:52:21 -08:00
parent 6d436ac58a
commit ec27a4d7d3
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)
(define (compile-time-file-name-convention)
(let ((target (or "FIXME" ((@ (system base target) target-type)))))
(let ((target ((@ (system base target) target-type))))
(cond ((equal? target %host-type)
(system-file-name-convention))
((string-contains-ci target "mingw")