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

avoid factorized trouble

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-02-14 22:44:55 +00:00
parent 12364bb89a
commit 625c66015d
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/attributes.yap
View File

@ -270,8 +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),
term_factorized([G|Vs], [_|NVs], Gs). % term_factorized([G|Vs], [_|NVs], Gs).
% copy_term([G|Vs], [_|NVs], Gs). copy_term([G|Vs], [_|NVs], Gs).
project_delayed_goals(G) :- project_delayed_goals(G) :-
% SICStus compatible step, % SICStus compatible step,

6
pl/boot.yap
View File

@ -524,9 +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), % term_factorized(V, NV, LGs),
NCP = 0 NCP = 0
). ).