let initialize arg_spec =
Arg.parse
(Arg.align arg_spec)
(fun a ->
match !Main.scm_source_file_opt
with
None ->
Main.scm_source_file_opt := Some a
| Some _ ->
raise (Arg.Bad ("unexpected argument `" ^ a ^ "' (multiple input files are not allowed)")))
usage_msg