diff options
Diffstat (limited to 'otherlibs/labltk/support/textvariable.ml')
| -rw-r--r-- | otherlibs/labltk/support/textvariable.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/otherlibs/labltk/support/textvariable.ml b/otherlibs/labltk/support/textvariable.ml index e9dd514772..df4c3b92dc 100644 --- a/otherlibs/labltk/support/textvariable.ml +++ b/otherlibs/labltk/support/textvariable.ml @@ -16,6 +16,7 @@ (* $Id$ *) open StdLabels +open Support open Protocol external internal_tracevar : string -> cbid -> unit @@ -37,7 +38,7 @@ let add_handle var cbid = r := cbid :: !r with Not_found -> - Hashtbl.add' handles var (ref [cbid]) + Hashtbl'.add handles var (ref [cbid]) let exceptq x = let rec ex acc = function @@ -75,7 +76,7 @@ let handle vname ~callback:f = clear_callback id; rem_handle vname id; f() in - Hashtbl.add' callback_naming_table ~key:id ~data:wrapped; + Hashtbl'.add callback_naming_table ~key:id ~data:wrapped; add_handle vname id; if !Protocol.debug then begin prerr_cbid id; prerr_string " for variable "; prerr_endline vname @@ -96,7 +97,7 @@ let add w v = with Not_found -> let r = ref StringSet.empty in - Hashtbl.add' memo ~key:w ~data:r; + Hashtbl'.add memo ~key:w ~data:r; r in r := StringSet.add v !r |