[Top][All Lists]

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

[Guile-commits] 08/25: squash! Fix 'absolute-file-name?' and others for

From: Mike Gran
Subject: [Guile-commits] 08/25: squash! Fix 'absolute-file-name?' and others for cross-build to MinGW.
Date: Thu, 10 Nov 2022 18:06:17 -0500 (EST)

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

commit 9bfd0b544f6455f64f751500e5a7e207e9c1a681
Author: Jan (janneke) Nieuwenhuizen <>
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)
                ((string-contains-ci target "mingw")
    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 d4a7d2327..e6130d1f1 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)
             ((string-contains-ci target "mingw")

reply via email to

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