mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Test ‘scm_i_signal_delivery_thread’ with ‘scm_is_true’.

Browse source 
Fixes a regression introduced in
5a8502a494 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.
This commit is contained in:
Ludovic Courtès 2024-01-24 15:27:41 +01:00
parent a702097f1c
commit e791fbcefe
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/scmsigs.c
View file

@ -760,7 +760,7 @@ scm_i_close_signal_pipe()
scm_i_pthread_mutex_lock (&signal_delivery_thread_mutex); scm_i_pthread_mutex_lock (&signal_delivery_thread_mutex);
#if SCM_USE_PTHREAD_THREADS #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]); close (signal_pipe[1]);
#endif #endif