From bba52e7a9dfc5d8818b8a1e81cf5fd385ec4af79 Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez-inria.fr>
Date: Wed, 5 Jun 2002 12:12:47 +0000
Subject: changement List.sort; ajout fast_sort et List.merge

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4884 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 stdlib/array.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'stdlib/array.ml')

diff --git a/stdlib/array.ml b/stdlib/array.ml
index d77cf624d..175a3516f 100644
--- a/stdlib/array.ml
+++ b/stdlib/array.ml
@@ -144,6 +144,7 @@ let to_list a =
     if i < 0 then res else tolist (i - 1) (unsafe_get a i :: res) in
   tolist (length a - 1) []
 
+(* Cannot use List.length here because the List module depends on Array. *)
 let rec list_length accu = function
   | [] -> accu
   | h::t -> list_length (succ accu) t
@@ -274,3 +275,5 @@ let stable_sort cmp a =
     merge l2 l1 t 0 l2 a 0;
   end;
 ;;
+
+let fast_sort = stable_sort;;
-- 
cgit v1.2.3-70-g09d2