From c216daf5d5f8215947bce10e55d30c35be1a56ba Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Fri, 31 Jan 2020 15:57:45 +0100
Subject: [exn] Forbid raising in exn printers, make them return Pp.t option

Raising inside exception printers is quite tricky as the order of
registration for printers will indeed depend on the linking order.

We thus forbid this, and make our API closer to the upstream
`Printexn` by having printers return an option type.
---
 topbin/coqtop_byte_bin.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'topbin')

diff --git a/topbin/coqtop_byte_bin.ml b/topbin/coqtop_byte_bin.ml
index 604c6e251a..7e977ca0f2 100644
--- a/topbin/coqtop_byte_bin.ml
+++ b/topbin/coqtop_byte_bin.ml
@@ -11,9 +11,9 @@
 (* We register this handler for lower-level toplevel loading code *)
 let _ = CErrors.register_handler (function
     | Symtable.Error e ->
-      Pp.str (Format.asprintf "%a" Symtable.report_error e)
+      Some (Pp.str (Format.asprintf "%a" Symtable.report_error e))
     | _ ->
-      raise CErrors.Unhandled
+      None
   )
 
 let drop_setup () =
-- 
cgit v1.2.3