diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-09-04 12:06:05 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-09-04 12:06:05 +0000 |
| commit | 65df484b048958ff4498badc7490bb34bf65b7e5 (patch) | |
| tree | 7760bf3b73f96a904b5b16fd7d5f42e02ecc1eb6 | |
| parent | 6ce2dd362f1ebda783ebbb2aa855f5b149c0240e (diff) | |
Rectification option -S.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@242 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | driver/optmain.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/optmain.ml b/driver/optmain.ml index 380fd84bb..f0f3ebe4b 100644 --- a/driver/optmain.ml +++ b/driver/optmain.ml @@ -44,7 +44,7 @@ let main () = Arg.parse ["-I", Arg.String(fun dir -> include_dirs := dir :: !include_dirs); "-c", Arg.Unit(fun () -> compile_only := true); - "-S", Arg.Unit(fun s -> keep_asm_file := true); + "-S", Arg.Unit(fun () -> keep_asm_file := true); "-o", Arg.String(fun s -> exec_name := s; archive_name := s); "-i", Arg.Unit(fun () -> print_types := true); "-a", Arg.Unit(fun () -> make_archive := true); |