fixup! Rewrite inline pass

Author: hhugo

compiler/lib/inline.ml

@@ -354,7 +354,7 @@ let rec small_function ~context info args =
           let info' = Var.Map.find arg context.env in
           let arity = List.assoc param relevant_params in
           if
-            List.length info'.params = arity
+            List.compare_length_with info'.params ~len:arity = 0
             && should_inline
                  ~context:
                    { context with
@@ -511,7 +511,7 @@ let inline_function p rem branch x params cont args =
      parameters are used in the function body. *)
   let fresh_addr = free_pc in
   let free_pc = fresh_addr + 1 in
-  assert (List.length args = List.length params);
+  assert (List.compare_lengths args params = 0);
   let blocks =
     Addr.Map.add fresh_addr { params; body = []; branch = Branch cont } blocks
   in