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

use more efficient predicate.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-14 22:57:07 -05:00
parent 91b09d7382
commit 65e8ed2908
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/corout.yap
View File

@ -636,7 +636,7 @@ call_residue(Goal,Residue) :-
'$project_module'([], _, _). '$project_module'([], _, _).
'$project_module'([Mod|LMods], LIV, LAV) :- '$project_module'([Mod|LMods], LIV, LAV) :-
current_predicate(Mod:project_attributes/2), '$pred_exists'(project_attributes(LIV, LAV),Mod),
'$notrace'(Mod:project_attributes(LIV, LAV)), !, '$notrace'(Mod:project_attributes(LIV, LAV)), !,
attributes:all_attvars(NLAV), attributes:all_attvars(NLAV),
'$project_module'(LMods,LIV,NLAV). '$project_module'(LMods,LIV,NLAV).