fix singleton warning.

This commit is contained in:
Vitor Santos Costa 2009-10-23 23:54:00 +01:00
parent 78d2960d16
commit 9303efd6d6

View File

@ -135,7 +135,7 @@ find_nth(N, [_|Tail], Elem) :-
generate_nth(I, I, [Head|_], Head).
generate_nth(I, IN, [E|List], El) :-
generate_nth(I, IN, [_|List], El) :-
I1 is I+1,
generate_nth(I1, IN, List, El).