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 /driver/compile.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 'driver/compile.ml')
| -rw-r--r-- | driver/compile.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/driver/compile.ml b/driver/compile.ml index 1b445255dd..9e8d5724c7 100644 --- a/driver/compile.ml +++ b/driver/compile.ml @@ -92,7 +92,7 @@ let parse_file inputfile parse_fun ast_magic = let interface sourcefile = init_path(); let prefixname = Filename.chop_extension sourcefile in - let modulename = capitalize(Filename.basename prefixname) in + let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = preprocess sourcefile (prefixname ^ ".ppi") in let ast = parse_file inputfile Parse.interface ast_intf_magic_number in let sg = Typemod.transl_signature (initial_env()) ast in @@ -109,7 +109,7 @@ let print_if flag printer arg = let implementation sourcefile = init_path(); let prefixname = Filename.chop_extension sourcefile in - let modulename = capitalize(Filename.basename prefixname) in + let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = preprocess sourcefile (prefixname ^ ".ppo") in let ast = parse_file inputfile Parse.implementation ast_impl_magic_number in let objfile = prefixname ^ ".cmo" in |