Commit 1907f781 authored by erwan's avatar erwan
Browse files

Update: fix a clash between Stdlib and List compare (since ocaml 4.12)

parent 271d002c
......@@ -614,7 +614,7 @@ let (_draw_point_cheap2 : point list -> point) =
The result is not too bad, but not perfect...
*)
let ul0 = List.map (fun _ -> Random.float 1.0) (List.tl zl) in
let ul = List.sort compare ul0 in
let ul = List.sort Stdlib.compare ul0 in
let (u_last, sl0) =
List.fold_left
(fun (u', l) u -> (u, (u -. u')::l))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment