Doc api

src/util/exn_printer.mli

@@ -18,8 +18,13 @@
 (**************************************************************************)
 
 type exn_printer = Format.formatter -> exn -> unit
+(* an [exn_printer] is a formatter of exception which prints on the
+   given formatter a message for the user if it knows the given
+   exception. Otherwise it raises the exception *)
 
 val register : exn_printer -> unit
+(* Register a formatter of exception *)
 
 val exn_printer : exn_printer
-(* exn_printer fmt exn : print the exception and return *)
+(* exn_printer fmt exn : print the exception using all the previously
+   registered printer and return *)

src/util/rc.mli

@@ -110,7 +110,7 @@ val get_intl : ?default:int list -> section -> string -> int list
     @raise Bad_value_type if the value associated to [key] is not of
     type {!int}
 
-    @raise Key_not_found if default is not given and no values are
+    @raise MissingField if default is not given and no values are
     associated to [key]
 *)