diff options
| author | Hugo Herbelin | 2017-11-08 12:32:09 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2017-11-08 12:32:15 +0100 |
| commit | 464ef8adf143b4c08252aa5148583aa52f65464c (patch) | |
| tree | 68dafa21563e4155fb8a4442656c31d8fc017ee9 | |
| parent | 35219fd89ce9a1b7ce92316ee84e3c8ad40b3831 (diff) | |
Fixing missing separator in an error message.
The message is the "Conversion test raised an anomaly" one.
| -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 2aa2f90131..eae0e249ef 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 |