diff options
| -rw-r--r-- | testsuite/tests/lib-threads/testA.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/lib-threads/testA.ml b/testsuite/tests/lib-threads/testA.ml index bdd33c345..30efd6d39 100644 --- a/testsuite/tests/lib-threads/testA.ml +++ b/testsuite/tests/lib-threads/testA.ml @@ -26,8 +26,8 @@ let process id data = set_private_data data; Mutex.lock output_lock; print_int id; print_string " --> "; print_string(get_private_data()); - Mutex.unlock output_lock; - print_newline() + print_newline(); + Mutex.unlock output_lock let _ = let t1 = Thread.create (process 1) "un" in |