diff options
| -rw-r--r-- | ocaml/t/guestfs_070_threads.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ocaml/t/guestfs_070_threads.ml b/ocaml/t/guestfs_070_threads.ml index 414b0232..8b22f938 100644 --- a/ocaml/t/guestfs_070_threads.ml +++ b/ocaml/t/guestfs_070_threads.ml @@ -25,7 +25,8 @@ let thread = Thread.create ( fun () -> while true do Gc.compact (); - ignore (Array.init 1000 (fun i -> Thread.yield (); String.create (8*i))) + ignore (Array.init 1000 (fun i -> String.create (8*i))); + Thread.delay 0.001 done ) () |