ports/graphics/ocaml-images/files/patch-src_bitmap.ml
Alexey Dokuchaev 1ab547de87 graphics/ocaml-images: unbreak the build and undeprecate the port
OMake's shell-success-null() function had been removed in version
0.10.5: after using $(NULL_DEVICE), it no longer needed a special
name and had replaced shell-success() function.
2023-11-27 12:35:02 +00:00

11 lines
411 B
OCaml

--- src/bitmap.ml.orig 2011-06-22 18:04:32 UTC
+++ src/bitmap.ml
@@ -186,7 +186,7 @@ module Make(B:Bitdepth) = struct
let swap_out_eldest words =
let sorted =
- Sort.list (fun b1 b2 -> b1.last_used < b2.last_used) !swappable_blocks in
+ List.sort (fun b1 b2 -> compare b1.last_used b2.last_used) !swappable_blocks in
let rec swapper sorted i =
match sorted with
| [] -> ()