From 9303efd6d690ee23a667f74ba88fd68d392837ee Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 23 Oct 2009 23:54:00 +0100
Subject: [PATCH] fix singleton warning.

---
 library/lists.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/lists.yap b/library/lists.yap
index 3bb4198be..698262fa2 100644
--- a/library/lists.yap
+++ b/library/lists.yap
@@ -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).