aboutsummaryrefslogtreecommitdiff
path: root/checker/checker.ml
diff options
context:
space:
mode:
authorGuillaume Melquiond2021-02-16 09:02:37 +0100
committerGuillaume Melquiond2021-02-16 09:02:37 +0100
commit31e205ae752c5189143ef9ce87a3536db0cdeb62 (patch)
treeff6c9e169d561ce5da25e85e828f46253ef377f3 /checker/checker.ml
parentc0e0e637c61e075f43b73d1ddd8eaa9d79b27561 (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.ml14
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 *)