diff options
| author | Hugo Herbelin | 2016-06-13 11:27:22 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-06-13 11:28:00 +0200 |
| commit | 87be9070b3415f31027b78165b213de34c168043 (patch) | |
| tree | 5cf9050b5c2cb343c98f8222956e47ac25ba695f | |
| parent | 19aa7231ec96dbbfdda7788679cf7ddf00bda7a5 (diff) | |
Tentatively fixing misguiding error message with "binder" type in
non-recursive notations (#4815).
| -rw-r--r-- | toplevel/metasyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 2ccd27acb9..92208e3046 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -982,7 +982,7 @@ let make_interpretation_type isrec = function | NtnInternTypeConstr when isrec -> NtnTypeConstrList | NtnInternTypeConstr | NtnInternTypeIdent -> NtnTypeConstr | NtnInternTypeBinder when isrec -> NtnTypeBinderList - | NtnInternTypeBinder -> error "Type not allowed in recursive notation." + | NtnInternTypeBinder -> error "Type binder is only for use in recursive notations for binders." let make_interpretation_vars recvars allvars = let eq_subscope (sc1, l1) (sc2, l2) = |