[Guile-commits] 02/02: Test ‘scm_i_signal_delivery_thread’ with ‘scm_is_true’.

[Ludovic Courtès]

civodul pushed a commit to branch main
in repository guile.

commit e791fbcefe873f579111b780842aae5a9bc9208d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Jan 24 15:27:41 2024 +0100

    Test ‘scm_i_signal_delivery_thread’ with ‘scm_is_true’.
    
    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