old ocaml

ocsigen · Feb 1, 2023 · 88ba49e · 88ba49e
1 parent 7af2c68
commit 88ba49e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/compiler/lib/stdlib.ml b/compiler/lib/stdlib.ml
@@ -97,6 +97,12 @@ let int_num_bits =
 module List = struct
   include ListLabels
 
+  let rec equal ~eq a b =
+    match a, b with
+    | [], [] -> true
+    | x :: xs, y :: ys -> eq x y && equal ~eq xs ys
+    | [], _ :: _ | _ :: _, [] -> false
+
   let rec find_map ~f = function
     | [] -> None
     | x :: l -> (