From 42d510ceea82d617ac4e630049d690acbe900688 Mon Sep 17 00:00:00 2001
From: Jason Gross
Date: Wed, 31 May 2017 00:49:36 -0400
Subject: 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/."
---
 engine/evd.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'engine')

diff --git a/engine/evd.ml b/engine/evd.ml
index 48fceae9ec..36d469e049 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
-- 
cgit v1.2.3