From 7d6e7f2613eb6e647a32117f0a0aed93bd88f33f Mon Sep 17 00:00:00 2001 From: vsc Date: Mon, 24 Mar 2008 23:54:32 +0000 Subject: [PATCH] make sure thread messages go to user_error. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2159 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- pl/threads.yap | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/pl/threads.yap b/pl/threads.yap index f679e3577..712903ed9 100644 --- a/pl/threads.yap +++ b/pl/threads.yap @@ -791,16 +791,16 @@ thread_property(Id, Prop) :- threads :- - write('------------------------------------------------------------------------'), nl, - format("~t~a~48+~n", 'Thread Detached Status'), - write('------------------------------------------------------------------------'), nl, + format(user_error,'------------------------------------------------------------------------~n',[]), + format(user_error, '~t~a~48+~n', 'Thread Detached Status'), + format(user_error,'------------------------------------------------------------------------~n',[]), '$thread_property'(Id, detached(Detached)), '$thread_property'(Id, status(Status)), '$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. threads :- - write('------------------------------------------------------------------------'), nl. + format(user_error,'------------------------------------------------------------------------~n',[]). '$check_thread_or_alias'(Term, Goal) :-