handle stack overflow within =..

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@466 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-05-07 21:19:52 +00:00
parent 97f7414cd2
commit d2a6f16e4a
3 changed files with 21 additions and 6 deletions

View File

@@ -861,10 +861,10 @@ debugging :-
'$action'(60,_,_,_,_,_) :- !, % <Depth
'$new_deb_depth',
fail.
'$action'(94,_,_,G,M,_) :- !,
'$print_deb_sterm'(G,M), fail.
'$action'(94,_,_,G,_) :- !,
'$print_deb_sterm'(G), fail.
'$action'(0'a,_,_,_,_,_) :- !, abort. % a abort
'$action'(0'd,_,_,_,_,_) :- !, break, % b break
'$action'(0'b,_,_,_,_,_) :- !, break, % b break
fail.
'$action'(0'c,call,_,_,_,_) :- !, % c creep
'$set_yap_flags'(10,1).
@@ -946,7 +946,7 @@ debugging :-
'$get_sterm_list'(L), !,
'$deb_get_sterm_in_g'(L,G,A),
recorda('$debug_sub_skel',L,_),
nl(user_error), write(user_error,A), nl(user_error), nl(user_error).
'$format'(user_error,"~n~w~n~n",[A]).
'$print_deb_sterm'(_) :- '$skipeol'(94).
'$get_sterm_list'(L) :-