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

small optimisation

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-12 22:41:49 +00:00
parent 26e0bfdf06
commit 3235842947
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pl/attributes.yap
View File

@ -90,14 +90,8 @@ execute_continuation(Continuation, Mod) :-
execute_woken_system_goals([]).
execute_woken_system_goals([G|LG]) :-
execute_woken_system_goals(['$att_do'(V,New)|LG]) :-
execute_woken_system_goals(LG),
execute_woken_system_goal(G).
%
% X surely was bound, otherwise we would not be awaken.
%
execute_woken_system_goal('$att_do'(V,New)) :-
call_atts(V,New).
%
@ -190,14 +184,14 @@ prolog:call_residue(Goal,Residue) :-
call_residue(Goal,Module,Residue) :-
call(Module:Goal).
% called by top_level to find out about delayed goals
project_delayed_goals(G,LGs) :-
% SICStus compatible step,
% just try to simplify store by projecting constraints
% over query variables.
(
current_predicate(attributes:modules_with_attributes/1), false
->
% SICStus compatible step,
% just try to simplify store by projecting constraints
% over query variables.
% called by top_level to find out about delayed goals
attributes:all_attvars(LAV),
LAV = [_|_],
!,