diff options
| author | Enrico Tassi | 2018-04-13 09:38:28 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-04-13 09:38:28 +0200 |
| commit | 43053e7e025e57f00741bcd744c20bc6f2c583af (patch) | |
| tree | 1864c8ba228559bd8eb6e6b1a0fa11a961c9cd62 /vernac/record.ml | |
| parent | 0f68627e37357f7ff37dba59abb856c52b411830 (diff) | |
| parent | 1671fae4a020a66e329b9ea04c7e06aa13c71d1e (diff) | |
Merge PR #7231: Fixing the 3 cases of a "Stream.Error" ended with two periods.
Diffstat (limited to 'vernac/record.ml')
| -rw-r--r-- | vernac/record.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/record.ml b/vernac/record.ml index 6e745b2af7..78e68e8a30 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -114,7 +114,7 @@ let typecheck_params_and_fields finite def id poly pl t ps nots fs = (function CLocalDef (b, _, _) -> error default_binder_kind b | CLocalAssum (ls, bk, ce) -> List.iter (error bk) ls | CLocalPattern {CAst.loc} -> - Loc.raise ?loc (Stream.Error "pattern with quote not allowed in record parameters.")) ps + Loc.raise ?loc (Stream.Error "pattern with quote not allowed in record parameters")) ps in let sigma, (impls_env, ((env1,newps), imps)) = interp_context_evars env0 sigma ps in let sigma, typ, sort, template = match t with |