From 714ef7a5606dfbce83c86629228a5af9d9f9c466 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 14 Dec 2006 09:15:18 +0000
Subject: [PATCH] do not creep in k and t

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

diff --git a/pl/debug.yap b/pl/debug.yap
index 6ecf1db47..7b957cf7a 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -448,6 +448,11 @@ debugging :-
 	
 
 % 
+'$spycall'(G, M, _) :-
+	nb_getval('$debug_run',StopPoint),
+	StopPoint \= off,
+	!,
+	'$execute_nonstop'(G, M).
 '$spycall'(G, M, _) :-
         '$system_predicate'(G,M),
          \+ '$is_metapredicate'(G,M),