otherlibs/threads/Tests/test3.ml


1
2
3
4
5
6
7
8

let print_message delay c =
  while true do
    print_char c; flush stdout; Thread.delay delay
  done

let _ =
  Thread.create (print_message 0.6666666666) 'a';
  print_message 1.0 'b'