Fix steadfasness issue in the difflist::flatten/2 library predicate

LogtalkDotOrg · Mar 15, 2019 · 1084630 · 1084630
1 parent 5afc28c
commit 1084630
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 12 deletions.
diff --git a/docs/_sources/difflist_0.rst.txt b/docs/_sources/difflist_0.rst.txt
@@ -9,8 +9,8 @@
 Difference list predicates.
 
 | **Author:** Paulo Moura
-| **Version:** 1.16
+| **Version:** 1.17
-| **Date:** 2019/3/8
+| **Date:** 2019/3/15
 
 | **Compilation flags:**
 |    ``static, context_switching_calls``

diff --git a/docs/_sources/index.rst.txt b/docs/_sources/index.rst.txt
@@ -17,4 +17,4 @@ Indices and tables
 * :ref:`genindex`
 * :ref:`search`
 
-Generated on Fri Mar 15 14:59:37 WET 2019
+Generated on Fri Mar 15 16:39:47 WET 2019
diff --git a/docs/difflist_0.html b/docs/difflist_0.html
@@ -313,8 +313,8 @@ <h1><code class="docutils literal notranslate"><span class="pre">difflist</span>
 <p>Difference list predicates.</p>
 <div class="line-block">
 <div class="line"><strong>Author:</strong> Paulo Moura</div>
-<div class="line"><strong>Version:</strong> 1.16</div>
+<div class="line"><strong>Version:</strong> 1.17</div>
-<div class="line"><strong>Date:</strong> 2019/3/8</div>
+<div class="line"><strong>Date:</strong> 2019/3/15</div>
 </div>
 <div class="line-block">
 <div class="line"><strong>Compilation flags:</strong></div>

diff --git a/docs/index.html b/docs/index.html
@@ -2860,7 +2860,7 @@ <h1>Indices and tables<a class="headerlink" href="#indices-and-tables" title="Pe
 <li><a class="reference internal" href="genindex.html"><span class="std std-ref">Index</span></a></li>
 <li><a class="reference internal" href="search.html"><span class="std std-ref">Search Page</span></a></li>
 </ul>
-<p>Generated on Fri Mar 15 14:59:37 WET 2019</p>
+<p>Generated on Fri Mar 15 16:39:47 WET 2019</p>
 </div>
 
 

diff --git a/library/difflist.lgt b/library/difflist.lgt
@@ -23,9 +23,9 @@
 	extends(compound)).
 
 	:- info([
-		version is 1.16,
+		version is 1.17,
 		author is 'Paulo Moura',
-		date is 2019/03/08,
+		date is 2019/03/15,
 		comment is 'Difference list predicates.',
 		see_also is [list, list(_), numberlist, varlist]
 	]).
@@ -96,12 +96,14 @@
 	flatten(List-Back, Flatted-Back) :-
 		flatten(List-Back, Back-Back, Flatted-Back).
 
-	flatten(Var, Tail-Back, [Var| Tail]-Back) :-
+	flatten(Var, Tail-Back, Flatted) :-
 		var(Var),
-		!.
+		!,
-	flatten(List-Back, Flatted, Flatted) :-
+		Flatted = [Var| Tail]-Back.
+	flatten(List-Back, Acc, Flatted) :-
 		List == Back,
-		!.
+		!,
+		Flatted = Acc.
 	flatten(List-Back, Acc, Flatted) :-
 		!,
 		List \== Back,