diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-04-13 09:38:28 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-04-13 09:38:28 +0200 |
| commit | 43053e7e025e57f00741bcd744c20bc6f2c583af (patch) | |
| tree | 1864c8ba228559bd8eb6e6b1a0fa11a961c9cd62 /interp | |
| parent | 0f68627e37357f7ff37dba59abb856c52b411830 (diff) | |
| parent | 1671fae4a020a66e329b9ea04c7e06aa13c71d1e (diff) | |
Merge PR #7231: Fixing the 3 cases of a "Stream.Error" ended with two periods.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index f2cd07c94..7eda89f4e 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -433,7 +433,7 @@ let glob_local_binder_of_extended = DAst.with_loc_val (fun ?loc -> function let t = DAst.make ?loc @@ GHole(Evar_kinds.BinderType na,Misctypes.IntroAnonymous,None) in (na,bk,Some c,t) | GLocalPattern (_,_,_,_) -> - Loc.raise ?loc (Stream.Error "pattern with quote not allowed here.") + Loc.raise ?loc (Stream.Error "pattern with quote not allowed here") ) let intern_cases_pattern_fwd = ref (fun _ -> failwith "intern_cases_pattern_fwd") |