diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-05-31 00:49:36 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-06-02 20:04:34 -0400 |
| commit | 42d510ceea82d617ac4e630049d690acbe900688 (patch) | |
| tree | d68ae2fa7b0815c3d5164b2410e534befbe48039 /engine/evd.ml | |
| parent | a2a98a4015311af83edcf8fc87aa30a5318bead8 (diff) | |
Don't double up on periods in anomalies
We don't want "Anomaly: Returned a functional value in a type not
recognized as a product type.. Please report at
http://coq.inria.fr/bugs/." but instead "Anomaly: Returned a functional
value in a type not recognized as a product type. Please report at
http://coq.inria.fr/bugs/."
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index 48fceae9e..36d469e04 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -510,7 +510,7 @@ let raw_map f d = let () = match info.evar_body, ans.evar_body with | Evar_defined _, Evar_empty | Evar_empty, Evar_defined _ -> - anomaly (str "Unrespectful mapping function.") + anomaly (str "Unrespectful mapping function") | _ -> () in ans @@ -524,7 +524,7 @@ let raw_map_undefined f d = let ans = f evk info in let () = match ans.evar_body with | Evar_defined _ -> - anomaly (str "Unrespectful mapping function.") + anomaly (str "Unrespectful mapping function") | _ -> () in ans |