Permalink
Browse files

revert commit 14728

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14729 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent f0b74bd commit c31d2ab685c0d2dcea1d3e779cc756b3c006f4ed @diml diml committed May 3, 2014
Showing with 4 additions and 4 deletions.
  1. +2 −2 driver/compile.ml
  2. +2 −2 driver/optcompile.ml
View
@@ -24,7 +24,7 @@ open Compenv
let interface ppf sourcefile outputprefix =
Compmisc.init_path false;
let modulename =
- String.capitalize(Filename.basename(chop_extension_if_any outputprefix)) in
+ String.capitalize(Filename.basename(chop_extension_if_any sourcefile)) in
check_unit_name ppf sourcefile modulename;
Env.set_unit_name modulename;
let initial_env = Compmisc.initial_env () in
@@ -58,7 +58,7 @@ let (++) x f = f x
let implementation ppf sourcefile outputprefix =
Compmisc.init_path false;
let modulename =
- String.capitalize(Filename.basename(chop_extension_if_any outputprefix)) in
+ String.capitalize(Filename.basename(chop_extension_if_any sourcefile)) in
check_unit_name ppf sourcefile modulename;
Env.set_unit_name modulename;
let env = Compmisc.initial_env() in
View
@@ -25,7 +25,7 @@ open Compenv
let interface ppf sourcefile outputprefix =
Compmisc.init_path false;
let modulename =
- String.capitalize(Filename.basename(chop_extension_if_any outputprefix)) in
+ String.capitalize(Filename.basename(chop_extension_if_any sourcefile)) in
check_unit_name ppf sourcefile modulename;
Env.set_unit_name modulename;
let initial_env = Compmisc.initial_env () in
@@ -60,7 +60,7 @@ let (+++) (x, y) f = (x, f y)
let implementation ppf sourcefile outputprefix =
Compmisc.init_path true;
let modulename =
- String.capitalize(Filename.basename(chop_extension_if_any outputprefix)) in
+ String.capitalize(Filename.basename(chop_extension_if_any sourcefile)) in
check_unit_name ppf sourcefile modulename;
Env.set_unit_name modulename;
let env = Compmisc.initial_env() in

0 comments on commit c31d2ab

Please sign in to comment.