m:subgoal should compile subgoal with m as default module (obs from Nuno Fonseca).
This commit is contained in:
parent
0e1fae17d9
commit
3b7e5544f6
@ -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)
|
||||
|
Reference in New Issue
Block a user