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:
vsc 2006-07-16 01:44:17 +00:00
parent 24b78dbf8b
commit 4dc4eb8a75
2 changed files with 3 additions and 2 deletions

View File

@ -16,6 +16,7 @@
<h2>Yap-5.1.2:</h2>
<ul>
<li> FIXED: min_list (obs from Filip Zelezny).</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: termination info for failed and detached threads (obs Paulo Moura).</li>

View File

@ -342,8 +342,8 @@ min_list([H|L],Max0,Max) :-
(
H < Max0
->
max_list(L, H, Max)
min_list(L, H, Max)
;
max_list(L, Max0, Max)
min_list(L, Max0, Max)
).