From e791fbcefe873f579111b780842aae5a9bc9208d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 24 Jan 2024 15:27:41 +0100
Subject: [PATCH] =?UTF-8?q?Test=20=E2=80=98scm=5Fi=5Fsignal=5Fdelivery=5Ft?=
 =?UTF-8?q?hread=E2=80=99=20with=20=E2=80=98scm=5Fis=5Ftrue=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes a regression introduced in
5a8502a4946e8a5b5c40a127aa240fc6ad960d03 and uncovered with
‘-DSCM_DEBUG_TYPING_STRICTNESS=2’ builds.

* libguile/scmsigs.c (scm_i_close_signal_pipe): Test
‘scm_i_signal_delivery_thread’ with ‘scm_is_true’ rather than pointer
equality.
---
 libguile/scmsigs.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index 22e211de3..7fd3fd8f1 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -760,7 +760,7 @@ scm_i_close_signal_pipe()
   scm_i_pthread_mutex_lock (&signal_delivery_thread_mutex);
 
 #if SCM_USE_PTHREAD_THREADS
-  if (scm_i_signal_delivery_thread != NULL)
+  if (scm_is_true (scm_i_signal_delivery_thread))
     close (signal_pipe[1]);
 #endif