diff options
Diffstat (limited to 'otherlibs/threads/Tests/test5.ml')
| -rw-r--r-- | otherlibs/threads/Tests/test5.ml | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/otherlibs/threads/Tests/test5.ml b/otherlibs/threads/Tests/test5.ml deleted file mode 100644 index 2baffe024b..0000000000 --- a/otherlibs/threads/Tests/test5.ml +++ /dev/null @@ -1,21 +0,0 @@ -open Event - -let ch = (new_channel() : string channel) - -let rec sender msg = - sync (send ch msg); - sender msg - -let rec receiver name = - print_string (name ^ ": " ^ sync (receive ch) ^ "\n"); - flush stdout; - receiver name - -let _ = - Thread.create sender "hello"; - Thread.create sender "world"; - Thread.create receiver "A"; - receiver "B"; - exit 0 - - |