diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make sure thread messages go to user_error.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2159 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-03-24 23:54:32 +00:00
parent c20c0f7767
commit 7d6e7f2613
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/threads.yap
View File

@ -791,16 +791,16 @@ thread_property(Id, Prop) :-
threads :- threads :-
write('------------------------------------------------------------------------'), nl, format(user_error,'------------------------------------------------------------------------~n',[]),
format("~t~a~48+~n", 'Thread Detached Status'), format(user_error, '~t~a~48+~n', 'Thread Detached Status'),
write('------------------------------------------------------------------------'), nl, format(user_error,'------------------------------------------------------------------------~n',[]),
'$thread_property'(Id, detached(Detached)), '$thread_property'(Id, detached(Detached)),
'$thread_property'(Id, status(Status)), '$thread_property'(Id, status(Status)),
'$thread_id_alias'(Id, Alias), '$thread_id_alias'(Id, Alias),
format("~t~q~30+~33|~w~42|~q~n", [Alias, Detached, Status]), format(user_error,'~t~q~30+~33|~w~42|~q~n', [Alias, Detached, Status]),
fail. fail.
threads :- threads :-
write('------------------------------------------------------------------------'), nl. format(user_error,'------------------------------------------------------------------------~n',[]).
'$check_thread_or_alias'(Term, Goal) :- '$check_thread_or_alias'(Term, Goal) :-