diff options
| author | Maxime Dénès | 2017-04-04 17:22:33 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-04 17:22:33 +0200 |
| commit | f22c72ff594408c3a3cac04cfee2234a59f2655b (patch) | |
| tree | ef1b5370fbcd448d063ca92564fba311e424fdf5 /lib | |
| parent | ea10a2da9ac11ea57e9eb80d0d6baf9321886da4 (diff) | |
| parent | bd458575ba7f767e3b939fad5d628a9cb24e6bb2 (diff) | |
Merge PR#502: [pp] Add anomaly header to error messages.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/cErrors.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/cErrors.ml b/lib/cErrors.ml index 99b763602d..1c1ff7e2fd 100644 --- a/lib/cErrors.ml +++ b/lib/cErrors.ml @@ -92,9 +92,8 @@ let print_backtrace e = match Backtrace.get_backtrace e with let print_anomaly askreport e = if askreport then - hov 0 (raw_anomaly e ++ spc () ++ - strbrk "Please report at " ++ str Coq_config.wwwbugtracker ++ - str ".") + hov 0 (str "Anomaly" ++ spc () ++ quote (raw_anomaly e) ++ spc ()) ++ + hov 0 (str "Please report at " ++ str Coq_config.wwwbugtracker ++ str ".") else hov 0 (raw_anomaly e) |