fix min_list

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1675 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-07-16 01:44:17 +00:00
parent 24b78dbf8b
commit 4dc4eb8a75
2 changed files with 3 additions and 2 deletions
--- a/library/lists.yap
+++ b/library/lists.yap
@@ -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)
 	).