From 45e8b6fc8f35b2723312346c8fdc85adc139a85e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20de=20Costa?= <vsc@ubuntu.(none)>
Date: Mon, 13 Oct 2008 15:40:05 +0100
Subject: [PATCH] when I call from $spy I am not under debugger control.

---
 pl/debug.yap | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/pl/debug.yap b/pl/debug.yap
index 82bc309e2..0dccf9f2c 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -286,7 +286,7 @@ debugging :-
 	'$execute'(G,Mod).
 '$spy'([Mod|G]) :-
 	CP is '$last_choice_pt',	
-	'$do_spy'(G, Mod, CP, yes).
+	'$do_spy'(G, Mod, CP, no).
 
 % last argument to do_spy says that we are at the end of a context. It
 % is required to know whether we are controlled by the debugger.
@@ -558,8 +558,8 @@ debugging :-
 '$debugger_write'(Stream, G) :-
 	writeq(Stream, G).
 
-'$action'(10,_,_,_,_,on) :-
-	nb_setval('$debug_jump',false) 			% newline 	creep
+'$action'(10,_,_,_,_,on) :-			% newline 	creep
+	nb_setval('$debug_jump',false).
 '$action'(0'!,_,_,_,_,_) :- !,			% ! 'g		execute
 	read(user,G),
 	% don't allow yourself to be caught by creep.