oops!
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@698 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
4e727b2f34
commit
8934201fd3
@ -796,9 +796,9 @@ debugging :-
|
|||||||
( SL = L -> SLL = '>' ; SLL = ' '),
|
( SL = L -> SLL = '>' ; SLL = ' '),
|
||||||
( Module\=prolog,
|
( Module\=prolog,
|
||||||
Module\=user ->
|
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),
|
'$debugger_write'(user_error,G),
|
||||||
'$set_value'(debug,1),
|
'$set_value'(debug,1),
|
||||||
|
Reference in New Issue
Block a user