[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 08/16: squash! Fix 'absolute-file-name?' and others for
From: |
Jan Nieuwenhuizen |
Subject: |
[Guile-commits] 08/16: squash! Fix 'absolute-file-name?' and others for cross-build to MinGW. |
Date: |
Wed, 11 May 2022 17:45:22 -0400 (EDT) |
janneke pushed a commit to branch wip-mingw
in repository guile.
commit a841ba1a6a5c4d6f5a6b77cb090a92a0a53ab327
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Wed May 11 16:27:14 2022 +0200
squash! Fix 'absolute-file-name?' and others for cross-build to MinGW.
FIXME in 3.0.7, this works:
;; boot-9.scm
(define (compile-time-file-name-convention)
(let ((target ((@ (system base target) target-type))))
(cond ((equal? target %host-type)
(system-file-name-convention))
((string-contains-ci target "mingw")
'windows)
(else
'posix)))))
in 3.0.8 it aborts hard.
guile: uncaught exception:
Unbound variable:define-module
Cannot exit gracefully when init is in progress; aborting.
* module/ice-9/boot-9.scm (eval): Avoid calling (target-type) this
hardcodes 'posix again.
---
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 f9b92d6ed..198a887c1 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 ((@ (system base target) target-type))))
+ (let ((target (or "FIXME" ((@ (system base target) target-type)))))
(cond ((equal? target %host-type)
(system-file-name-convention))
((string-contains-ci target "mingw")
- [Guile-commits] branch wip-mingw created (now 1f41daf1f), Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 01/16: gnulib: Import the gethostname module., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 02/16: Link fix for MinGW., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 06/16: Clear errno before CreateProcess for MinGW., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 08/16: squash! Fix 'absolute-file-name?' and others for cross-build to MinGW.,
Jan Nieuwenhuizen <=
- [Guile-commits] 04/16: Add 'set-port-binary/text-mode!' procedure for MinGW., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 09/16: Make `read-bytes' suspendable for socket reads on MinGW., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 10/16: Install 'mingw_take_signal' on MinGW., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 14/16: REMOVEME mingw: Hardcode compile-time-file-name-convention to 'mingw., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 15/16: REMOVEME guix: guile-mingw: Hardcode file-name-convention., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 16/16: DEBUG guile.cmd, wine-guile.sh: Some Wine help., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 11/16: Add `scm_sigaction_for_thread' stub for MinGW., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 12/16: DRAFT Add partial `scm_fcntl' support for MinGW., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 03/16: mingw: canonicalize-path: Also canonicalize drive letter and '/'., Jan Nieuwenhuizen, 2022/05/11
- [Guile-commits] 05/16: Support for x86_64-w64-mingw32., Jan Nieuwenhuizen, 2022/05/11