diff options
| -rw-r--r-- | clib/cEphemeron.ml | 3 | ||||
| -rw-r--r-- | clib/cEphemeron.mli | 2 | ||||
| -rw-r--r-- | stm/asyncTaskQueue.ml | 2 |
3 files changed, 3 insertions, 4 deletions
diff --git a/clib/cEphemeron.ml b/clib/cEphemeron.ml index 75b75a1dd4..d7cc0a4dc2 100644 --- a/clib/cEphemeron.ml +++ b/clib/cEphemeron.ml @@ -107,5 +107,4 @@ let iter_opt (typ, boxkey) f = try f ((EHashtbl.find values boxkey).get typ) with Not_found -> () -(* NB: clear only removes dead bindings, so it uses Ephemeron.S.clean *) -let clear () = EHashtbl.clean values +let clean () = EHashtbl.clean values diff --git a/clib/cEphemeron.mli b/clib/cEphemeron.mli index 00cdf87ab5..96391e10fa 100644 --- a/clib/cEphemeron.mli +++ b/clib/cEphemeron.mli @@ -51,4 +51,4 @@ val get : 'a key -> 'a val default : 'a key -> 'a -> 'a val iter_opt : 'a key -> ('a -> unit) -> unit -val clear : unit -> unit +val clean : unit -> unit diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index 768d94d305..94e04d1842 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -325,7 +325,7 @@ module Make(T : Task) () = struct let response = slave_respond request in report_status "Idle"; marshal_response (Option.get !slave_oc) response; - CEphemeron.clear () + CEphemeron.clean () with | MarshalError s -> stm_pr_err Pp.(prlist str ["Fatal marshal error: "; s]); flush_all (); exit 2 |