diff options
| author | Maxime Dénès | 2017-05-17 09:13:31 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-17 09:13:31 +0200 |
| commit | 772de8aba675731ed8d476ea0bc628ee21751dc8 (patch) | |
| tree | 6ef31ae010cf7afc1d016a3e5b992f600cb99eab /interp/constrexpr_ops.ml | |
| parent | 5360ec8ff56c44e96c56965be78e6f2538963a57 (diff) | |
| parent | e4ca8679e6700cfd6563890eb7d9e4ee59bede57 (diff) | |
Merge PR#630: [interp] [ast] Make raw_cases_pattern_expr private + small cleanup
Diffstat (limited to 'interp/constrexpr_ops.ml')
| -rw-r--r-- | interp/constrexpr_ops.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml index a592b4cff8..542f9feaf6 100644 --- a/interp/constrexpr_ops.ml +++ b/interp/constrexpr_ops.ml @@ -263,12 +263,6 @@ let cases_pattern_expr_loc = function | CPatDelimiters (loc,_,_) -> loc | CPatCast(loc,_,_) -> loc -let raw_cases_pattern_expr_loc = function - | RCPatAlias (loc,_,_) -> loc - | RCPatCstr (loc,_,_,_) -> loc - | RCPatAtom (loc,_) -> loc - | RCPatOr (loc,_) -> loc - let local_binder_loc = function | CLocalAssum ((loc,_)::_,_,t) | CLocalDef ((loc,_),t,None) -> Loc.merge loc (constr_loc t) |