diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

don't expand meta-vars and don't expand expanded variables...

This commit is contained in:
Vítor Santos Costa 2015-10-22 11:58:29 +01:00
parent 9dd4a4a807
commit a9fa343bad
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/modules.yap
View File

@ -765,7 +765,11 @@ expand_goal(G, NG) :-
'$do_expand'(G, Mod, prolog, []-G, NG), !.
expand_goal(G, G).
'$do_expand'(G, _HM, _BM, _SM, _, G) :- var(G), !.
'$do_expand'(G, _HM, _BM, SM, HVars-_, OG) :- var(G), !,
( lists:identical_member(G, HVars) -> OG = G; OG = SM:G).
% nothing I can do here:
'$do_expand'(M:G, _HM, _BM, _SM, _HVars, M:G) :- !,
nonvar(M), var(G), !.
'$do_expand'(M:G, HM, _BM, _SM, HVars, M:GI) :- !,
nonvar(M),
'$do_expand'(G, HM, M, M, HVars, GI).