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

fix numbervars to number atts

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1136 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-09-13 21:20:01 +00:00
parent 8402df6bb2
commit 7e9c32fd52
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/ground.yap
View File

@ -55,9 +55,11 @@ numbervars(Term, M, N) :-
'$numbermarked_vars'(L, M, N). '$numbermarked_vars'(L, M, N).
'$numbermarked_vars'([], M, M). '$numbermarked_vars'([], M, M).
/*
'$numbermarked_vars'([V|L], M, N) :- '$numbermarked_vars'([V|L], M, N) :-
attvar(V), !, attvar(V), !,
'$numbermarked_vars'(L, M, N). '$numbermarked_vars'(L, M, N).
*/
'$numbermarked_vars'(['$VAR'(M)|L], M, N) :- '$numbermarked_vars'(['$VAR'(M)|L], M, N) :-
M1 is M+1, M1 is M+1,
'$numbermarked_vars'(L, M1, N). '$numbermarked_vars'(L, M1, N).