From cdad87a6fc658b45872630b1bf77ae39a900bc31 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sun, 31 Jan 2016 10:46:35 +0000
Subject: [PATCH] delete/3

---
 pl/lists.yap | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/pl/lists.yap b/pl/lists.yap
index cad749eef..24861bc66 100644
--- a/pl/lists.yap
+++ b/pl/lists.yap
@@ -3,9 +3,7 @@
  * @author VITOR SANTOS COSTA <vsc@VITORs-MBP.lan>
  * @date   Thu Nov 19 09:54:00 2015
  *
- * @brief  core list operations
- *
- * @ingroup lists
+ * @addtogroup lists
  * @{
 */
 
@@ -73,7 +71,7 @@ lists:append([H|T], L, [H|R]) :-
 	lists:append(T, L, R).
 
 
-:- set_prolog_flag(source, false). % :- no_source.
+:- set_prolog_flag(source, true). % :- no_source.
 
 %   lists:delete(List, Elem, Residue)
 %   is true when List is a list, in which Elem may or may not occur, and
@@ -90,7 +88,7 @@ eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
 */
 lists:delete([], _, []).
 lists:delete([Head|List], Elem, Residue) :-
-	Head == Elem, !,
+	Head = Elem,
 	lists:delete(List, Elem, Residue).
 lists:delete([Head|List], Elem, [Head|Residue]) :-
 	lists:delete(List, Elem, Residue).