[Ocaml-lib-devel] Freezing in DynArray.append

[Peter J. <pe...@jo...>]

Appending a DynArray of length > 1 to an empty DynArray causes the
program to hang:

# let d = DynArray.create () and e = DynArray.create ();;
val d : '_a DynArray.t = <abstr>
val e : '_a DynArray.t = <abstr>
# DynArray.add e 0; DynArray.add e 0;;
- : unit = ()
# DynArray.append e d;; (* hangs *)

The append call succeeds when length d <= 1.

This is with ExtLib 1.3 in OCaml 3.08.1 and 3.09+dev1.