val add_exception_ident : Ident.t -> unitval remove_exception_ident : Ident.t -> unitval clear_used_primitives : unit -> unitval get_used_primitives : unit -> Path.t listtype error = | Unknown_builtin_primitive of string| Wrong_arity_builtin_primitive of string