make sure goal_expansion is never seen as an undefined goal. It should at least always succeed.

2009-11-23 10:01:55 +00:00 · 2009-11-23 10:01:55 +00:00 · d91bab4247
commit d91bab4247
parent a132707746
1 changed files with 2 additions and 0 deletions
--- a/pl/boot.yap
+++ b/pl/boot.yap
@ -899,6 +899,8 @@ not(G) :-    \+ '$execute'(G).
 '$check_callable'(_,_).

 % Called by the abstract machine, if no clauses exist for a predicate
+'$undefp'([M|expand_goal(G,GEx)]) :- !,
+	G = GEx.
 '$undefp'([M|G]) :-
 	% make sure we do not loop on undefined predicates
        % for undefined_predicates.