diff options
author | 2017-02-02 20:21:14 +0100 | |
---|---|---|
committer | 2017-03-24 12:17:35 +0100 | |
commit | 71cd2838bf3eb23a8f29df973d8012ebe2ec77b0 (patch) | |
tree | 462edc24f28728df8b3aa37bdf0e66b59e1ab171 /interp/notation_ops.mli | |
parent | 648ce5e08f7245f2a775abd1304783c4167e9f2e (diff) |
Using the same type of binders for interning and externing.
Previously a union type was used for externing.
In particular, moving extended_glob_local_binder to glob_constr.ml.
Diffstat (limited to 'interp/notation_ops.mli')
-rw-r--r-- | interp/notation_ops.mli | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/interp/notation_ops.mli b/interp/notation_ops.mli index c8fcbf741..a61ba172e 100644 --- a/interp/notation_ops.mli +++ b/interp/notation_ops.mli @@ -47,12 +47,9 @@ val glob_constr_of_notation_constr : Loc.t -> notation_constr -> glob_constr exception No_match -type glob_decl2 = - (name, cases_pattern) Util.union * Decl_kinds.binding_kind * - glob_constr option * glob_constr val match_notation_constr : bool -> glob_constr -> interpretation -> (glob_constr * subscopes) list * (glob_constr list * subscopes) list * - (glob_decl2 list * subscopes) list + (extended_glob_local_binder list * subscopes) list val match_notation_constr_cases_pattern : cases_pattern -> interpretation -> |