diff options
Diffstat (limited to 'otherlibs/labltk/support/textvariable.ml')
| -rw-r--r-- | otherlibs/labltk/support/textvariable.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/labltk/support/textvariable.ml b/otherlibs/labltk/support/textvariable.ml index af272e682..4581976b5 100644 --- a/otherlibs/labltk/support/textvariable.ml +++ b/otherlibs/labltk/support/textvariable.ml @@ -96,9 +96,9 @@ let add w v = try Hashtbl.find memo w with Not_found -> - let r = ref StringSet.empty in - Hashtbl.add memo w r; - r in + let r = ref StringSet.empty in + Hashtbl.add memo w r; + r in r := StringSet.add v !r (* to be used with care ! *) |