diff options
Diffstat (limited to 'otherlibs/labltk/browser/fileselect.ml')
| -rw-r--r-- | otherlibs/labltk/browser/fileselect.ml | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/otherlibs/labltk/browser/fileselect.ml b/otherlibs/labltk/browser/fileselect.ml index 51d782b71..6ca08f5ac 100644 --- a/otherlibs/labltk/browser/fileselect.ml +++ b/otherlibs/labltk/browser/fileselect.ml @@ -17,12 +17,12 @@ (* file selection box *) open StdLabels -open Useunix open Str open Filename - open Tk +open Useunix + (**** Memoized rexgexp *) let (~!) = Jg_memo.fast ~f:Str.regexp @@ -56,12 +56,6 @@ let parse_filter s = dirs, ptrn else "", s -let concat dir name = - let len = String.length dir in - if len = 0 then name else - if dir.[len-1] = '/' then dir ^ name - else dir ^ "/" ^ name - let rec fixpoint ~f v = let v' = f v in if v = v' then v else fixpoint ~f v' |