summaryrefslogtreecommitdiff
path: root/libguile/scmsigs.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2024-01-24 15:27:41 +0100
committerLudovic Courtès <ludo@gnu.org>2024-01-24 15:27:41 +0100
commite791fbcefe873f579111b780842aae5a9bc9208d (patch)
tree8a0687f525b9ef4c2557acf315821c47396c5855 /libguile/scmsigs.c
parenta702097f1cec322110d307710bd78244548cacd2 (diff)
downloadguile-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.c2
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