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

fix project_attributes/2 (was not being called ever).

This commit is contained in:
Vitor Santos Costa 2010-03-22 09:11:27 +00:00
parent 0c28e58dd4
commit 39483147f4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/attributes.yap
View File

@ -186,8 +186,11 @@ call_residue(Goal,Module,Residue) :-
project_delayed_goals(G,LGs) :- project_delayed_goals(G,LGs) :-
( (
current_predicate(attributes:modules_with_attributes/1), false '$undefined'(modules_with_attributes(_),attributes)
-> ->
attributed(G, NLAV),
NLAV = [_|_]
;
% SICStus compatible step, % SICStus compatible step,
% just try to simplify store by projecting constraints % just try to simplify store by projecting constraints
% over query variables. % over query variables.
@ -198,9 +201,6 @@ project_delayed_goals(G,LGs) :-
project_attributes(LAV, G), project_attributes(LAV, G),
% now get a list of frozen goals. % now get a list of frozen goals.
attributes:all_attvars(NLAV) attributes:all_attvars(NLAV)
;
attributed(G, NLAV),
NLAV = [_|_]
), ),
!, !,
get_goalist_from_attvars(NLAV, LGs). get_goalist_from_attvars(NLAV, LGs).