diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-12 16:09:04 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-12 16:09:04 +0200 |
| commit | 1671fae4a020a66e329b9ea04c7e06aa13c71d1e (patch) | |
| tree | 49085e71e3831ea16119362a4f87057e95c8f874 /vernac/comInductive.ml | |
| parent | 8059a0efa79fcd72d56c424adf1bea10dae28d6d (diff) | |
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.
Diffstat (limited to 'vernac/comInductive.ml')
| -rw-r--r-- | vernac/comInductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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; |