diff --git a/ocaml/Qmcchem_dataserver.ml b/ocaml/Qmcchem_dataserver.ml index 6386771..3067996 100644 --- a/ocaml/Qmcchem_dataserver.ml +++ b/ocaml/Qmcchem_dataserver.ml @@ -98,8 +98,7 @@ let run ?(daemon=true) ezfio_filename = let result = try ZMQ.Socket.bind socket address; - ZMQ.Socket.unbind socket address; - accu; + accu with | _ -> false; in