diff options
| author | Maxime Dénès | 2018-04-12 17:59:35 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-04-12 17:59:35 +0200 |
| commit | 32b142d297c3fb259d0977efdb267fdc7c99b1d7 (patch) | |
| tree | 46dc062383d3442806e345a23cb61fa837dd8ba4 /checker/reduction.ml | |
| parent | 485eb7958811ff627d9c50ec7a6ed36ed9416b97 (diff) | |
| parent | 0ade32f84b28d2190360ec79520788142755b5b7 (diff) | |
Merge PR #6972: [api] Deprecate a couple of aliases that we missed.
Diffstat (limited to 'checker/reduction.ml')
| -rw-r--r-- | checker/reduction.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index 97255dd49e..072dec63f1 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -54,7 +54,7 @@ let compare_stack_shape stk1 stk2 = type lft_constr_stack_elt = Zlapp of (lift * fconstr) array - | Zlproj of Names.projection * lift + | Zlproj of Names.Projection.t * lift | Zlfix of (lift * fconstr) * lft_constr_stack | Zlcase of case_info * lift * fconstr * fconstr array and lft_constr_stack = lft_constr_stack_elt list @@ -142,7 +142,7 @@ let compare_stacks f fmind lft1 stk1 lft2 stk2 = | (Zlfix(fx1,a1),Zlfix(fx2,a2)) -> f fx1 fx2; cmp_rec a1 a2 | (Zlproj (c1,l1),Zlproj (c2,l2)) -> - if not (Names.eq_con_chk + if not (Names.Constant.UserOrd.equal (Names.Projection.constant c1) (Names.Projection.constant c2)) then raise NotConvertible |