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

fix handling of attributed vars.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-11 14:06:57 +01:00
parent 1461f44184
commit cf7dccdcdf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/attributes.yap
View File

@ -262,6 +262,9 @@ residuals_and_delete_attributes(Vs, Gs, Term) :-
delete_attributes(Term). delete_attributes(Term).
attvars_residuals([]) --> []. attvars_residuals([]) --> [].
attvars_residuals([V|Vs]) -->
{ nonvar(V) }, !,
attvars_residuals(Vs).
attvars_residuals([V|Vs]) --> attvars_residuals([V|Vs]) -->
( { get_attrs(V, As) } ( { get_attrs(V, As) }
-> attvar_residuals(As, V) -> attvar_residuals(As, V)