From 4444768d3f4f9c4fcdd440f7ab902886bd8e2b09 Mon Sep 17 00:00:00 2001
From: Thomas Sibut-Pinote
Date: Tue, 23 Jun 2015 14:49:01 +0200
Subject: Moved fatal_error from Coqtop to Errors and corrected dependencies
 accordingly.

This allows fatal_error to be used for printing anomalies at loading time.
---
 lib/errors.mli | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/errors.mli')

diff --git a/lib/errors.mli b/lib/errors.mli
index 8320ce409f..e5dad93fd0 100644
--- a/lib/errors.mli
+++ b/lib/errors.mli
@@ -92,3 +92,8 @@ val noncritical : exn -> bool
 (** Check whether an exception is handled by some toplevel printer. The
     [Anomaly] exception is never handled. *)
 val handled : exn -> bool
+
+(** Prints info which is either an error or
+   an anomaly and then exits with the appropriate
+   error code *)
+val fatal_error : Pp.std_ppcmds -> bool -> 'a
-- 
cgit v1.2.3