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