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

hack call_residue.

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-23 16:44:38 +01:00
parent 8d04b08b95
commit 4c36f8b6ce
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pl/attributes.yap
View File

@ -240,8 +240,15 @@ prolog:call_residue(Goal,Residue) :-
call_residue(Goal,Module,Residue). call_residue(Goal,Module,Residue).
call_residue(Goal,Module,Residue) :- call_residue(Goal,Module,Residue) :-
call(Module:Goal). prolog:call_residue_vars(Module:Goal,NewAttVars),
(
'$undefined'(modules_with_attributes(_),attributes)
->
project_attributes(NewAttVars, Module:Goal)
;
true
),
copy_term(Goal, Goal, Residue).
delayed_goals(G, Vs, NVs, Gs) :- delayed_goals(G, Vs, NVs, Gs) :-
project_delayed_goals(G), project_delayed_goals(G),