[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sweeprolog 650a0339c2 1/2: ; Avoid deprecated thread_exit/
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/sweeprolog 650a0339c2 1/2: ; Avoid deprecated thread_exit/1 |
|
Date: |
Thu, 5 Sep 2024 07:01:35 -0400 (EDT) |
branch: elpa/sweeprolog
commit 650a0339c26c800cbf298f9c5b96e676e8b7f6f6
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>
; Avoid deprecated thread_exit/1
This circumvents a crash during top-level threads termination.
See https://github.com/SWI-Prolog/swipl-devel/issues/1317.
---
sweep.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/sweep.pl b/sweep.pl
index d4c088d862..bbffab2922 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -2043,11 +2043,11 @@ cleanup_thread_(T) :-
!,
thread_detach(T),
( thread_property(T, status(running))
- -> thread_signal(T, thread_exit(0))
+ -> thread_signal(T, throw(exit))
; true
).
cleanup_thread_(T) :-
- thread_signal(T, thread_exit(0)).
+ thread_signal(T, throw(exit)).
sweep_async_goal([GoalString|FD], TId) :-
term_string(Goal, GoalString),