git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@698 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-11-20 15:07:36 +00:00
parent 4e727b2f34
commit 8934201fd3

View File

@ -796,9 +796,9 @@ debugging :-
( SL = L -> SLL = '>' ; SLL = ' '),
( Module\=prolog,
Module\=user ->
'$format'(user_error,"~a~a (~d) ~a: ~a:",[CSPY,SLL,L,P,Module]),
'$format'(user_error,"~a~a (~d) ~a: ~a:",[CSPY,SLL,L,P,Module])
;
'$format'(user_error,"~a~a (~d) ~a:",[CSPY,SLL,L,P]),
'$format'(user_error,"~a~a (~d) ~a:",[CSPY,SLL,L,P])
),
'$debugger_write'(user_error,G),
'$set_value'(debug,1),