[Guile-commits] 01/02: Fix cross-compilation to MinGW.

[Ludovic Courtès]

civodul pushed a commit to branch main
in repository guile.

commit a702097f1cec322110d307710bd78244548cacd2
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Wed Jan 24 15:26:57 2024 +0100

    Fix cross-compilation to MinGW.
    
    Fixes a regression introduced in
    5a8502a4946e8a5b5c40a127aa240fc6ad960d03.
    
    * libguile/scmsigs.c (scm_i_signals_post_fork): Wrap reference to ‘once’
    in #ifdef.
---
 libguile/scmsigs.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index 3d4e72a2b..22e211de3 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -1,4 +1,4 @@
-/* Copyright 1995-2002,2004,2006-2009,2011,2013-2014,2017-2018,2023
+/* Copyright 1995-2002, 2004, 2006-2009, 2011, 2013-2014, 2017-2018, 2023-2024
      Free Software Foundation, Inc.
 
    This file is part of Guile.
@@ -301,7 +301,9 @@ scm_i_signals_post_fork ()
         }
     }
 
+#if SCM_USE_PTHREAD_THREADS
   once = SCM_I_PTHREAD_ONCE_INIT;
+#endif
   if (active)
     scm_i_ensure_signal_delivery_thread ();
 }