From 462d3c85edece865157f9771443ad929bc89d858 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 21 Mar 2025 18:10:07 +0100
Subject: [PATCH] =?UTF-8?q?Provide=20=E2=80=98scm=5Fi=5Fis=5Ffinalizer=5Ft?=
 =?UTF-8?q?hread=E2=80=99=20when=20building=20=E2=80=98--without-threads?=
 =?UTF-8?q?=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes a regression in ‘--without-threads’ builds introduced in
b8031fc9653a039c4ba8c07b93e649155351657a.

* libguile/finalizers.c (scm_i_is_finalizer_thread) [!SCM_USE_PTHREAD_THREADS]:
New function.
---
 libguile/finalizers.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/libguile/finalizers.c b/libguile/finalizers.c
index 47495b595..f6e67d5d7 100644
--- a/libguile/finalizers.c
+++ b/libguile/finalizers.c
@@ -327,7 +327,15 @@ spawn_finalizer_thread (void)
   start_finalization_thread ();
 }
 
-#endif /* SCM_USE_PTHREAD_THREADS */
+#else /* !SCM_USE_PTHREAD_THREADS */
+
+int
+scm_i_is_finalizer_thread (struct scm_thread *t)
+{
+  return 0;
+}
+
+#endif /* !SCM_USE_PTHREAD_THREADS */