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

factorized answer

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-02-06 21:56:43 +00:00
parent f11b0518a8
commit d85dc3fd5c
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/attributes.yap
View File

@ -270,7 +270,8 @@ call_residue(Goal,Module,Residue) :-
delayed_goals(G, Vs, NVs, Gs) :- delayed_goals(G, Vs, NVs, Gs) :-
project_delayed_goals(G), project_delayed_goals(G),
copy_term([G|Vs], [_|NVs], Gs). term_factorized([G|Vs], [_|NVs], Gs).
% copy_term([G|Vs], [_|NVs], Gs).
project_delayed_goals(G) :- project_delayed_goals(G) :-
% SICStus compatible step, % SICStus compatible step,

5
pl/boot.yap
View File

@ -524,8 +524,9 @@ true :- true.
'$clean_ifcp'(CP), '$clean_ifcp'(CP),
NCP is NCP2-NCP1 NCP is NCP2-NCP1
; ;
copy_term_nat(V, NV), % copy_term_nat(V, NV),
LGs = [], % LGs = [],
term_factorized(V, NV, LGs),
NCP = 0 NCP = 0
). ).