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

style check fixes

Browse Source 
improve error message on redefining system predicate


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@252 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-01-02 16:55:24 +00:00
parent 666bb88a7e
commit 3962e559aa
11 changed files with 62 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
pl/debug.yap
View File

@@ -281,7 +281,7 @@ debugging :-
'$get_value'(debug,1), /* ditto if debug off */
'$get_value'(spy_fs,0), /* ditto if fast skipping */
( '$access_yap_flags'(10,0) -> /* if not creeping ... */
'$pred_being_spied'(G,M) /* ... spy only if at a spy-point */
'$pred_being_spied'(G,Module) /* ... spy only if at a spy-point */
; true
),
% ( \+ '$undefined'(user_error_spy(_), user) -> user_error_spy(G) ;
@@ -536,7 +536,7 @@ debugging :-
('$undefined'('$set_depth_limit'(_),prolog) -> true ; '$set_depth_limit'(D)),
CP is '$last_choice_pt',
(
'$db_nb_to_ref'(Cl,M:G,Mod,Ref),
'$db_nb_to_ref'(Cl,M:G,Ref),
instance(Ref, (G :- Clause)),
(Clause = true -> true ; '$debug_catch_call'(Clause,M,CP) )
;
@@ -714,7 +714,7 @@ debugging :-
'$direct_spy'([Module|'!'(CP)]),
% clean up any garbage left here by the debugger.
'$$cut_by'(CP).
'$creep_call'('$cut_by'(X),Module,_) :- !,
'$creep_call'('$cut_by'(X),_,_) :- !,
'$$cut_by'(X).
'$creep_call'(repeat,Module,_) :- !,
'$direct_spy'([Module|repeat]).