diff options
| author | Guillaume Melquiond | 2021-02-16 09:02:37 +0100 |
|---|---|---|
| committer | Guillaume Melquiond | 2021-02-16 09:02:37 +0100 |
| commit | 31e205ae752c5189143ef9ce87a3536db0cdeb62 (patch) | |
| tree | ff6c9e169d561ce5da25e85e828f46253ef377f3 /checker/checker.ml | |
| parent | c0e0e637c61e075f43b73d1ddd8eaa9d79b27561 (diff) | |
Get rid of the compilation date from the binaries to make them more stable.
Contrarily to the comments, Coq_config.date was not the "release date" but
just another "compile date".
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index bdfc5f07be..3a16b7f407 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -48,19 +48,17 @@ let path_of_string s = let ( / ) = Filename.concat -let get_version_date () = +let get_version () = try let ch = open_in (Envars.coqlib () / "revision") in let ver = input_line ch in let rev = input_line ch in let () = close_in ch in - (ver,rev) - with _ -> (Coq_config.version,Coq_config.date) + Printf.sprintf "%s (%s)" ver rev + with _ -> Coq_config.version let print_header () = - let (ver,rev) = (get_version_date ()) in - Printf.printf "Welcome to Chicken %s (%s)\n" ver rev; - flush stdout + Printf.printf "Welcome to Chicken %s\n%!" (get_version ()) (* Adding files to Coq loadpath *) @@ -170,9 +168,7 @@ let compile_files senv = ~check:(List.rev !compile_list) let version () = - Printf.printf "The Coq Proof Checker, version %s (%s)\n" - Coq_config.version Coq_config.date; - Printf.printf "compiled on %s\n" Coq_config.compile_date; + Printf.printf "The Coq Proof Checker, version %s\n" Coq_config.version; exit 0 (* print the usage of coqtop (or coqc) on channel co *) |
