diff options
Diffstat (limited to 'lib/errors.ml')
| -rw-r--r-- | lib/errors.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lib/errors.ml b/lib/errors.ml index 157949fcd9..ae188cfeb2 100644 --- a/lib/errors.ml +++ b/lib/errors.ml @@ -110,10 +110,6 @@ let print_no_report e = print_gen (print_anomaly false) !handle_stack e let print_anomaly e = print_anomaly true e -(** Same as [print], except that anomalies are not printed but re-raised - (used for the Fail command) *) -let print_no_anomaly e = print_gen (fun e -> raise e) !handle_stack e - (** Predefined handlers **) let _ = register_handler begin function |