diff options
| author | Hugo Herbelin | 2017-08-17 12:35:56 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-02-20 10:03:06 +0100 |
| commit | 3a6b1d2c04ceeb568accbc9ddfc3fc0f14faf25b (patch) | |
| tree | 52d6f018753666991104a6a63558b1ecef387bb8 /intf | |
| parent | 149997b59c6711c551490c4e7601eaac59f5f675 (diff) | |
Respecting the ident/pattern distinction in notation modifiers.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/notation_term.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/intf/notation_term.ml b/intf/notation_term.ml index 83cc454f43..0f4bfef600 100644 --- a/intf/notation_term.ml +++ b/intf/notation_term.ml @@ -60,8 +60,11 @@ type subscopes = tmp_scope_name option * scope_name list (** Type of the meta-variables of an notation_constr: in a recursive pattern x..y, x carries the sequence of objects bound to the list x..y *) + +type notation_binder_source = NtnParsedAsConstr | NtnParsedAsIdent | NtnParsedAsPattern + type notation_var_instance_type = - | NtnTypeConstr | NtnTypeBinder of bool | NtnTypeConstrList | NtnTypeBinderList + | NtnTypeConstr | NtnTypeBinder of notation_binder_source | NtnTypeConstrList | NtnTypeBinderList (** Type of variables when interpreting a constr_expr as a notation_constr: in a recursive pattern x..y, both x and y carry the individual type |