diff options
| author | Hugo Herbelin | 2019-09-09 14:22:43 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-09-09 14:22:43 +0200 |
| commit | 9ee962e7c18aebd214e3be4fda2c36f5e9c65405 (patch) | |
| tree | fa906760ff1e9a398893ca0844564e64e4f6f8fb /toplevel/ccompile.ml | |
| parent | 110e87a2bee21c112f7fc4291e5a7b7e5180217b (diff) | |
| parent | 9b7816a80c77d7f9b4cea35f8ed983763bd8a5c7 (diff) | |
Merge PR #10605: [toplevel] Make all argument lists to be in user-declared order.
Reviewed-by: herbelin
Diffstat (limited to 'toplevel/ccompile.ml')
| -rw-r--r-- | toplevel/ccompile.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/ccompile.ml b/toplevel/ccompile.ml index fe5361c156..3600658e23 100644 --- a/toplevel/ccompile.ml +++ b/toplevel/ccompile.ml @@ -39,7 +39,7 @@ let load_vernacular opts ~state = if !Flags.beautify then Flags.with_option Flags.beautify_file load_vernac f_in else load_vernac s - ) state (List.rev opts.pre.load_vernacular_list) + ) state opts.pre.load_vernacular_list let load_init_vernaculars opts ~state = let state = load_init_file opts ~state in @@ -193,7 +193,7 @@ let compile_file opts copts (f_in, echo) = compile opts copts ~echo ~f_in ~f_out let compile_files opts copts = - let compile_list = List.rev copts.compile_list in + let compile_list = copts.compile_list in List.iter (compile_file opts copts) compile_list (******************************************************************************) @@ -205,7 +205,7 @@ let check_vio_tasks copts = let f_in = ensure ".vio" f f in ensure_exists f_in; Vio_checking.check_vio (n,f_in) && acc) - true (List.rev copts.vio_tasks) in + true copts.vio_tasks in if not rc then fatal_error Pp.(str "VIO Task Check failed") (* vio files *) |