aboutsummaryrefslogtreecommitdiff
path: root/clib
diff options
context:
space:
mode:
Diffstat (limited to 'clib')
-rw-r--r--clib/cEphemeron.ml3
-rw-r--r--clib/cEphemeron.mli2
2 files changed, 2 insertions, 3 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