petite amelioration de List.sort

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3234 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2000-07-10 11:29:04 +00:00 · 2000-07-10 11:29:04 +00:00 · 88980b7eef
parent 21fd21f35f
commit 88980b7eef
1 changed files with 1 additions and 1 deletions
--- a/stdlib/list.ml
+++ b/stdlib/list.ml
@ -208,7 +208,7 @@ let array_to_list_in_place a =
      end
    end
  in
-  loop [] l l
+  loop [] (l-1000) l
 ;;

 let stable_sort cmp l =