Resolve issue with Seq.length for ocaml < 4.14

src_lockfree/dune

@@ -23,6 +23,12 @@ let () =
  (action
   (copy domain.ocaml4.ml domain.ml)))
 
+(rule
+ (enabled_if
+  (< %{ocaml_version} 4.14.0))
+ (action
+  (copy seq.ocaml4.13.ml seq.ml)))
+
 (rule
  (enabled_if
   (< %{ocaml_version} 5.2.0))
@@ -34,6 +40,5 @@ let () =
  (enabled_if
    (<> %{os_type} Win32))
  (libraries saturn_lockfree)
- (files bounded_stack.mli))
-
+ (files treiber_stack.mli))
 |}

src_lockfree/seq.ocaml4.13.ml

@@ -0,0 +1,6 @@
+include Seq
+
+let rec length_aux accu xs =
+  match xs () with Nil -> accu | Cons (_, xs) -> length_aux (accu + 1) xs
+
+let[@inline] length xs = length_aux 0 xs