diff options
| -rw-r--r-- | testsuite/tests/lib-threads/test4.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/lib-threads/test4.ml b/testsuite/tests/lib-threads/test4.ml index 90692c9a0..7fb789c76 100644 --- a/testsuite/tests/lib-threads/test4.ml +++ b/testsuite/tests/lib-threads/test4.ml @@ -16,8 +16,9 @@ let rec fib n = if n <= 2 then 1 else fib(n-1) + fib(n-2) let fibtask n = while true do + let res = fib n in Mutex.lock output_lock; - print_int(fib n); print_newline(); + print_int res; print_newline(); Mutex.unlock output_lock done |