From 695e8b577ee9bc49888133b8690db77f3d6ac3b7 Mon Sep 17 00:00:00 2001
From: whitequark
Date: Tue, 19 Jun 2018 14:51:53 +0000
Subject: Rename CEphemeron.clear→clean for clarity.

---
 clib/cEphemeron.ml  | 3 +--
 clib/cEphemeron.mli | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'clib')

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
-- 
cgit v1.2.3