diff options
author | Ludovic Courtès <ludo@gnu.org> | 2024-01-24 15:27:41 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-01-24 15:27:41 +0100 |
commit | e791fbcefe873f579111b780842aae5a9bc9208d (patch) | |
tree | 8a0687f525b9ef4c2557acf315821c47396c5855 /libguile/scmsigs.c | |
parent | a702097f1cec322110d307710bd78244548cacd2 (diff) | |
download | guile-e791fbcefe873f579111b780842aae5a9bc9208d.tar.gz |
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.
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 2 |
1 files changed, 1 insertions, 1 deletions
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 |