diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-13 11:34:27 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-13 11:34:27 +0100 |
| commit | e71b3445f1555a25daab81b8d5dd2ccf7e586e39 (patch) | |
| tree | 6835da553cf120e6d63c9ff255b0377b7f10787c /pretyping | |
| parent | c232059eecefa8763ce1e381990d6d7034080d3e (diff) | |
| parent | 464ef8adf143b4c08252aa5148583aa52f65464c (diff) | |
Merge PR #6117: Fix printing anomaly in conv
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/reductionops.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 308896f3a..32c993224 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -1314,7 +1314,9 @@ let pb_equal = function | Reduction.CONV -> Reduction.CONV let report_anomaly e = - let e = UserError (None, Pp.(str "Conversion test raised an anomaly" ++ print e)) in + let msg = Pp.(str "Conversion test raised an anomaly:" ++ + spc () ++ CErrors.print e) in + let e = UserError (None,msg) in let e = CErrors.push e in iraise e |