debugger should use the same code that system uses to find undefined predicates.

2010-12-03 12:40:30 +00:00
parent f8806bed9f
commit 552d424ee0
2 changed files with 11 additions and 16 deletions
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -504,16 +504,8 @@ debugging :-
 	( '$do_spy'(Cl, M, CP, CalledFromDebugger) ; InRedo = true ).
 '$spycall'(G, M, CalledFromDebugger, InRedo) :-
 	'$undefined'(G, M), !,
-	(
-	 recorded('$import','$import'(NM,M,Goal,G,_,_),_)
-	->
-	 '$spycall'(Goal, NM, CalledFromDebugger, InRedo)
-	;
-	'$enter_undefp',
-	 '$find_undefp_handler'(G,M,Goal,NM)
-	->
-	 '$spycall'(Goal, NM, CalledFromDebugger, InRedo)
-	).
+	'$find_goal_definition'(M, G, NM, Goal),
+	'$spycall'(Goal, NM, CalledFromDebugger, InRedo).
 '$spycall'(G, M, _, InRedo) :-
 	% I lost control here.
 	CP is '$last_choice_pt',