From 1671fae4a020a66e329b9ea04c7e06aa13c71d1e Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Thu, 12 Apr 2018 16:09:04 +0200
Subject: Fixing the 3 cases of a "Stream.Error" ended with two periods.

The "Stream.Error" printer does add a period, so, the messages
themselves should not.
---
 vernac/comInductive.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vernac/comInductive.ml')

diff --git a/vernac/comInductive.ml b/vernac/comInductive.ml
index db2f16525..05c40dbdd 100644
--- a/vernac/comInductive.ml
+++ b/vernac/comInductive.ml
@@ -261,7 +261,7 @@ let check_param = function
 | CLocalAssum (nas, Default _, _) -> List.iter check_named nas
 | CLocalAssum (nas, Generalized _, _) -> ()
 | CLocalPattern {CAst.loc} ->
-    Loc.raise ?loc (Stream.Error "pattern with quote not allowed here.")
+    Loc.raise ?loc (Stream.Error "pattern with quote not allowed here")
 
 let interp_mutual_inductive (paramsl,indl) notations cum poly prv finite =
   check_all_names_different indl;
-- 
cgit v1.2.3