fix fix on index expansion

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1570 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-03-21 19:20:35 +00:00
parent a578a778a4
commit b38d4fc941
3 changed files with 15 additions and 7 deletions
--- a/library/atts.yap
+++ b/library/atts.yap
@@ -171,7 +171,7 @@ find_used([],_,L,L).
 find_used([M|Mods],Mods0,L0,Lf) :-
        in(M,Mods0), !,
 	find_used(Mods,Mods0,[M|L0],Lf).
-find_used([M|Mods],Mods0,L0,Lf) :-
+find_used([_|Mods],Mods0,L0,Lf) :-
 	find_used(Mods,Mods0,L0,Lf).

 in(X,[X|_]).