diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-08-09 10:34:44 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-08-09 10:34:44 +0000 |
| commit | c9b77a613c84fefffe7cb824c72419172ed7ae46 (patch) | |
| tree | 8096ab8ba03a572227baf59fa04009a9c7abfcd2 /otherlibs/labltk/browser/fileselect.ml | |
| parent | b920dbd56c1e403a429f5001832fb05d72ee05b6 (diff) | |
last changes
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5094 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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' |