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

compact source mode.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@934 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2003-11-21 16:56:20 +00:00
parent 8d3f30de9c
commit f5edbc8aa7
16 changed files with 254 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
pl/debug.yap
View File

@@ -393,16 +393,11 @@ debugging :-
'$execute0'(G, M).
'$spycall'(G,M) :-
'$flags'(G,M,F,F),
F /\ 16'2008 =\= 0, !, % dynamic procedure, or logical semantics
F /\ 16'402008 =\= 0, !, % dynamic procedure, logical semantics, or source
% use the interpreter
'$clause'(G, M, Cl),
CP is '$last_choice_pt',
'$do_spy'(Cl, M, CP).
'$spycall'(G,M) :-
'$some_recordedp'(M:G), !,
'$clause'(G, M, Cl),
CP is '$last_choice_pt',
'$do_spy'(Cl, M, CP).
'$spycall'(G,M) :-
'$continue_debugging',
'$execute0'(G, M).