fix no threads case.

2012-08-22 15:29:28 -05:00 · 2012-08-22 15:29:28 -05:00 · 55267cac34
parent 475face871
commit 55267cac34
1 changed files with 2 additions and 0 deletions
--- a/pl/threads.yap
+++ b/pl/threads.yap
@ -53,6 +53,8 @@ volatile(P) :-
 	'$new_mutex'(Id),
 	assert_static(prolog:'$with_mutex_mutex'(Id)).

+'$reinit_thread0' :-
+	'$no_threads', !.
 '$reinit_thread0' :-
 	'$create_thread_mq'(0),
 %	abolish(prolog:'$with_mutex_mutex',1),