diff options
| author | Thomas Sibut-Pinote | 2015-06-23 14:49:01 +0200 |
|---|---|---|
| committer | Pierre Boutillier | 2015-06-23 18:21:33 +0200 |
| commit | 4444768d3f4f9c4fcdd440f7ab902886bd8e2b09 (patch) | |
| tree | ec32a18ad10f2afcfbe34801873ac7d74c6f2257 /toplevel | |
| parent | 19fed6f504eb8450dee34faa8e84a6d4071131dc (diff) | |
Moved fatal_error from Coqtop to Errors and corrected dependencies accordingly.
This allows fatal_error to be used for printing anomalies at loading time.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqtop.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 934e73aae9..a04678a1b9 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -20,12 +20,6 @@ let () = at_exit flush_all let ( / ) = Filename.concat -let fatal_error info anomaly = - let msg = info ++ fnl () in - pp_with ~pp_tag:Ppstyle.pp_tag !Pp_control.err_ft msg; - flush_all (); - exit (if anomaly then 129 else 1) - let get_version_date () = try let ch = open_in (Envars.coqlib () / "revision") in |