From 0e6dd4734e4509aaeb711bc0888ab0d8451a19df Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 8 Apr 2002 03:11:33 +0000
Subject: [PATCH] more fixes for debugger and overflow handling in arrays

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@433 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/debug.yap | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/pl/debug.yap b/pl/debug.yap
index 8848cbe5f..0a2ec7f34 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -252,7 +252,9 @@ debugging :-
 '$spy'([Module|'$call'(G)]) :- !,
 	'fetch_goal_module'(G, Module, G1, Mod),
         '$expand_goal'(G1, Mod, Module, NG, NM),
-	'$do_spy'(NG, NM).
+	/* we may execute a system predicate, so we cannot
+	   jump straight to do_spy */
+	'$spy'([NM|NG]).
 '$spy'([Module|G]) :-
 %    '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
          '$hidden'(G),
@@ -841,6 +843,9 @@ debugging :-
 '$skipeol'(10) :- !.
 '$skipeol'(_) :- get0(user,C), '$skipeol'(C).
 
+'$action'(10,call,_,_,continue) :- !,		% newline 	creep
+	'$set_yap_flags'(10,1),
+	'$creep'.
 '$action'(10,_,_,_,continue) :- !.		% newline 	creep
 '$action'(33,_,_,_,_) :- !,		% ! g		execute
 	read(user,G),