From 6f0b3cf2f5581c6a212bb97fc8aa9d97c57c30fa Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 25 Aug 2008 20:41:09 +0100
Subject: [PATCH] fix flatten/2: it would not create variable elements.

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

diff --git a/library/lists.yap b/library/lists.yap
index 4b5cf4c7f..f3e142aea 100644
--- a/library/lists.yap
+++ b/library/lists.yap
@@ -345,7 +345,7 @@ list_concat([H|T], [H|Lf], Li) :-
 %
 flatten(X,Y) :- flatten_list(X,Y,[]).
  
-flatten_list(V) --> {var(V)}, !.
+flatten_list(V) --> {var(V)}, !, [V].
 flatten_list([]) --> !.
 flatten_list([H|T]) --> !, flatten_list(H),flatten_list(T).
 flatten_list(H) --> [H].