From 2cd48bde1a1f4daeed6a4274d645a311166cf4a9 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 30 Oct 2001 19:28:20 +0000
Subject: [PATCH] fix spy and t option :-(.

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

diff --git a/pl/debug.yap b/pl/debug.yap
index 2a9f11a93..ed1b68cd7 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -45,7 +45,7 @@
 '$suspy'(A,nospy) :- '$noclausesfor'(A), !,
 	throw(error(existence_error(procedure,A),nospy(A))).
 '$suspy'(A,M) :- current_predicate(A,T),
-	\+ '$undefined'(T), \+ '$system_predicate'(T), !,
+	\+ '$undefined'(T), \+ '$system_predicate'(T),
 	 functor(T,F,N),
 	'$suspy2'(M,F,N,T).
 
@@ -332,7 +332,7 @@ debugging :-
 		'$trace'(redo,G,L),	/* inform user_error		*/
 		fail			/* to backtrack to spycalls	*/
 	).
-'do_spy'(G) :- '$execute0'(G).	/* this clause applies when we do not want
+'$do_spy'(G) :- '$execute0'(G).	/* this clause applies when we do not want
 				   to spy the goal			*/
 
 '$cont_creep' :-  '$get_value'('$trace',1), '$set_yap_flags'(10,1), fail.