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

get rid of annoying debugging message.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@697 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-11-20 15:04:37 +00:00
parent f339741dd2
commit 4e727b2f34
6 changed files with 18 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
pl/debug.yap
View File

@@ -792,13 +792,13 @@ debugging :-
'$set_value'(debug,0),
'$get_value'('$trace',OldTrace),
'$set_value'('$trace',0),
('$pred_being_spied'(G,Module) -> write(user_error,'*') ; write(user_error,' ')),
( SL = L -> write(user_error,'>') ; write(user_error,' ')),
write(user_error,' ('), write(user_error,L), write(user_error,') '),
write(user_error,P), write(user_error,': '),
('$pred_being_spied'(G,Module) -> CSPY = '*' ; CSPY = ' '),
( SL = L -> SLL = '>' ; SLL = ' '),
( Module\=prolog,
Module\=user -> write(user_error,Module),write(user_error,':');
true
Module\=user ->
'$format'(user_error,"~a~a (~d) ~a: ~a:",[CSPY,SLL,L,P,Module]),
;
'$format'(user_error,"~a~a (~d) ~a:",[CSPY,SLL,L,P]),
),
'$debugger_write'(user_error,G),
'$set_value'(debug,1),