diff options
Diffstat (limited to 'otherlibs/threads/Tests/test4.ml')
| -rw-r--r-- | otherlibs/threads/Tests/test4.ml | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/otherlibs/threads/Tests/test4.ml b/otherlibs/threads/Tests/test4.ml deleted file mode 100644 index ff84961bb3..0000000000 --- a/otherlibs/threads/Tests/test4.ml +++ /dev/null @@ -1,13 +0,0 @@ -let rec fib n = if n <= 2 then 1 else fib(n-1) + fib(n-2) - -let fibtask n = - while true do - print_int(fib n); print_newline() - done - -let _ = - Thread.create fibtask 28; - while true do - let l = read_line () in - print_string ">> "; print_string l; print_newline() - done |