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

fix bad syntax (obs from Ulrich Neumerkel #137, after #138)

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-11-17 00:13:54 +00:00
parent 3f30a2bf18
commit 59935893ac
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/debug.yap
View File

@ -556,12 +556,14 @@ debugging :-
% ( SL = L -> SLL = '>' ; SLL = ' '), % ( SL = L -> SLL = '>' ; SLL = ' '),
SLL = ' ', SLL = ' ',
( Module\=prolog, ( Module\=prolog,
Module\=user -> Module\=user
format(user_error,'~a~a~a (~d) ~q: ~a:',[Det,CSPY,SLL,L,P0,Module]) ->
GW = Module:G
; ;
format(user_error,'~a~a~a (~d) ~q:',[Det,CSPY,SLL,L,P0]) GW = G
), ),
'$debugger_write'(user_error,G). format(user_error,'~a~a~a (~d) ~q:',[Det,CSPY,SLL,L,P0])
'$debugger_write'(user_error,GW).
'$unleashed'(call) :- get_value('$leash',L), L /\ 2'1000 =:= 0. %' '$unleashed'(call) :- get_value('$leash',L), L /\ 2'1000 =:= 0. %'
'$unleashed'(exit) :- get_value('$leash',L), L /\ 2'0100 =:= 0. %' '$unleashed'(exit) :- get_value('$leash',L), L /\ 2'0100 =:= 0. %'