diff options
| author |  Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2016-02-15 16:22:45 +0100 |
|---|---|---|
| committer |  Maxime Dénès <mail@maximedenes.fr> | 2016-06-27 12:31:23 +0200 |
| commit | c6d9d4fb142ef42634be25b60c0995b541e86629 (patch) | |
| tree | e6cd36fc03ae7a79d9b65f08b0295bedc485f855 /ide | |
| parent | 4d4e2f421c1a4f0339568d3c96ff2459a027aa09 (diff) | |
Adding ability to put any pattern in binders, prefixed by a quote.
Cf CHANGES for details.
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/texmacspp.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ide/texmacspp.ml b/ide/texmacspp.ml index f445f2e08..53a29008a 100644 --- a/ide/texmacspp.ml +++ b/ide/texmacspp.ml @@ -238,6 +238,8 @@ and pp_local_binder lb = (* don't know what it is for now *) let ppl = List.map (fun (loc, nam) -> (xmlCst (string_of_name nam) loc)) namll in xmlTyped (ppl @ [pp_expr ce]) + | LocalPattern _ -> + assert false and pp_local_decl_expr lde = (* don't know what it is for now *) match lde with | AssumExpr (_, ce) -> pp_expr ce @@ -351,6 +353,7 @@ and pp_cases_pattern_expr cpe = xmlApply loc (xmlOperator "delimiter" ~attr:["name", delim] loc :: [pp_cases_pattern_expr cpe]) + | CPatCast _ -> assert false and pp_case_expr (e, name, pat) = match name, pat with | None, None -> xmlScrutinee [pp_expr e] |