diff options
| -rw-r--r-- | otherlibs/threads/Tests/testsocket.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/threads/Tests/testsocket.ml b/otherlibs/threads/Tests/testsocket.ml index b8c04a6df..d0f14cbf5 100644 --- a/otherlibs/threads/Tests/testsocket.ml +++ b/otherlibs/threads/Tests/testsocket.ml @@ -11,7 +11,7 @@ let engine number address = print_int number; print_string ">"; print_string s; print_newline() done with End_of_file -> - close_in ic; close_out oc + close_out oc let main() = let addresses = Array.create (Array.length Sys.argv - 1) inet_addr_any in |