From c6d9d4fb142ef42634be25b60c0995b541e86629 Mon Sep 17 00:00:00 2001 From: Daniel de Rauglaudre Date: Mon, 15 Feb 2016 16:22:45 +0100 Subject: Adding ability to put any pattern in binders, prefixed by a quote. Cf CHANGES for details. --- interp/notation_ops.mli | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'interp/notation_ops.mli') diff --git a/interp/notation_ops.mli b/interp/notation_ops.mli index 576c5b943..0f1b1a875 100644 --- a/interp/notation_ops.mli +++ b/interp/notation_ops.mli @@ -47,9 +47,12 @@ 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_decl list * subscopes) list + (glob_decl2 list * subscopes) list val match_notation_constr_cases_pattern : cases_pattern -> interpretation -> -- cgit v1.2.3