--- sedlex-2.2/src/generator/gen_unicode.ml.inc.orig	2020-02-08 14:55:37.000000000 -0700

+++ sedlex-2.2/src/generator/gen_unicode.ml.inc	2020-06-17 21:22:50.269177776 -0600

@@ -77,14 +77,14 @@ let split list n =

 let print_elements ch hashtbl =

   let cats =

-    List.sort_uniq Pervasives.compare

+    List.sort_uniq Stdlib.compare

       (Hashtbl.fold (fun cat _ l -> cat::l) hashtbl [])

   in

   let len = List.length cats in

   List.iter (fun c ->

     let entries =

       List.map (fun (b,e) -> Printf.sprintf "0x%x, 0x%x" b e)

-        (List.sort_uniq Pervasives.compare

+        (List.sort_uniq Stdlib.compare

           (Hashtbl.find_all hashtbl c))

     in

     let entries =