Fixed missing argument in recorda/3 call.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2198 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
5d6ddc8026
commit
2462596050
@ -61,8 +61,8 @@
|
|||||||
).
|
).
|
||||||
% format(user_error,'closing thread ~w~n',[v([Id0|Status])]).
|
% format(user_error,'closing thread ~w~n',[v([Id0|Status])]).
|
||||||
'$close_thread'(Exception, Detached, Id0) :-
|
'$close_thread'(Exception, Detached, Id0) :-
|
||||||
( recorded('$thread_exit_status',[Id0|_],R), erase(R), fail
|
( recorded('$thread_exit_status', [Id0|_], R), erase(R), fail
|
||||||
; recorda('$thread_exit_status', [Id0|exception(error(Exception,_))])
|
; recorda('$thread_exit_status', [Id0|exception(error(Exception,_))], _)
|
||||||
),
|
),
|
||||||
'$run_at_thread_exit'(Id0),
|
'$run_at_thread_exit'(Id0),
|
||||||
( Detached == true ->
|
( Detached == true ->
|
||||||
|
Reference in New Issue
Block a user