SWI-portability changes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2088 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-02-12 17:03:59 +00:00
parent 5b2cc724f3
commit af0fb4f4d9
59 changed files with 4541 additions and 247 deletions
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -466,12 +466,16 @@ debugging :-
 	( '$do_spy'(Cl, M, CP, InControl) ; InRedo = true ).
 '$spycall'(G, M, InControl, InRedo) :-
 	'$undefined'(G, M), !,
-	'$enter_undefp',
 	(
-	    '$find_undefp_handler'(G,M,Goal,NM)
+	 recorded('$import','$import'(NM,M,Goal,G,_,_),_)
 	->
-	   '$spycall'(Goal, NM, InControl, InRedo)
-       ).
+	 '$spycall'(Goal, NM, InControl, InRedo)
+	;
+	'$enter_undefp',
+	 '$find_undefp_handler'(G,M,Goal,NM)
+	->
+	 '$spycall'(Goal, NM, InControl, InRedo)
+	).
 '$spycall'(G, M, InControl, InRedo) :-
 	% I lost control here.
 	CP is '$last_choice_pt',