fix min_list
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1675 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
24b78dbf8b
commit
4dc4eb8a75
@ -16,6 +16,7 @@
|
|||||||
|
|
||||||
<h2>Yap-5.1.2:</h2>
|
<h2>Yap-5.1.2:</h2>
|
||||||
<ul>
|
<ul>
|
||||||
|
<li> FIXED: min_list (obs from Filip Zelezny).</li>
|
||||||
<li> FIXED: -l and -L options (again?).</li>
|
<li> FIXED: -l and -L options (again?).</li>
|
||||||
<li> FIXED: if we cannot read more chars in saved state we're dead.</li>
|
<li> FIXED: if we cannot read more chars in saved state we're dead.</li>
|
||||||
<li> FIXED: termination info for failed and detached threads (obs Paulo Moura).</li>
|
<li> FIXED: termination info for failed and detached threads (obs Paulo Moura).</li>
|
||||||
|
@ -342,8 +342,8 @@ min_list([H|L],Max0,Max) :-
|
|||||||
(
|
(
|
||||||
H < Max0
|
H < Max0
|
||||||
->
|
->
|
||||||
max_list(L, H, Max)
|
min_list(L, H, Max)
|
||||||
;
|
;
|
||||||
max_list(L, Max0, Max)
|
min_list(L, Max0, Max)
|
||||||
).
|
).
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user