diff options
Diffstat (limited to '')
-rw-r--r-- | compiler/Invariants.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/Invariants.ml b/compiler/Invariants.ml index 370b0d01..3fdb963a 100644 --- a/compiler/Invariants.ml +++ b/compiler/Invariants.ml @@ -501,8 +501,6 @@ let check_typing_invariant (ctx : C.eval_ctx) : unit = method! visit_typed_avalue info atv = (* Check the current pair (value, type) *) (match (atv.V.value, atv.V.ty) with - | V.APrimitive cv, ty -> - check_primitive_value_type cv (Subst.erase_regions ty) (* ADT case *) | V.AAdt av, T.Adt (T.AdtId def_id, regions, tys) -> (* Retrieve the definition to check the variant id, the number of |