m:subgoal should compile subgoal with m as default module (obs from Nuno Fonseca).

This commit is contained in:
Vítor Manuel de Morais Santos Costa 2009-11-04 12:29:31 +00:00
parent 0e1fae17d9
commit 3b7e5544f6

View File

@ -294,8 +294,8 @@ module(N) :-
% if I don't know what the module is, I cannot do anything to the goal,
% so I just put a call for later on.
'$module_expansion'(M:G,call(M:G),'$execute_wo_mod'(G,M),_,_,_,_) :- var(M), !.
'$module_expansion'(M:G,G1,GO,_,CM,HM,HVars) :- !,
'$module_expansion'(G,G1,GO,M,CM,HM,HVars).
'$module_expansion'(M:G,G1,GO,_,CM,_,HVars) :- !,
'$module_expansion'(G,G1,GO,M,M,HM,HVars).
'$module_expansion'(G, G1, GO, CurMod, MM, HM, HVars) :-
'$pred_goal_expansion_on',
( user:goal_expansion(G, CurMod, GI)