diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-10-31 16:03:27 +0000 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-10-31 16:03:27 +0000 |
commit | bfa250606e65226da3096d0fe1729a2b18c23eca (patch) | |
tree | 1674108f8ca277f986ccbaadb65e6f206fb11f41 /toplevel/expunge.ml | |
parent | 9548bd7e5de2c9bb64859317d77c71930ad66c94 (diff) | |
download | ocaml-bfa250606e65226da3096d0fe1729a2b18c23eca.tar.gz |
Misc.lowercase -> String.uncapitalize
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1130 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'toplevel/expunge.ml')
-rw-r--r-- | toplevel/expunge.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/expunge.ml b/toplevel/expunge.ml index 2de01aff23..c6864b6e66 100644 --- a/toplevel/expunge.ml +++ b/toplevel/expunge.ml @@ -37,7 +37,7 @@ let main () = (fun exn -> to_keep := StringSet.add exn !to_keep) Runtimedef.builtin_exceptions; for i = 3 to Array.length Sys.argv - 1 do - to_keep := StringSet.add (capitalize Sys.argv.(i)) !to_keep + to_keep := StringSet.add (String.capitalize Sys.argv.(i)) !to_keep done; let ic = open_in_bin input_name in let pos_trailer = |