diff --git a/compiler/src/codegen/compcore.re b/compiler/src/codegen/compcore.re index d2cef90bca..79cc6bea19 100644 --- a/compiler/src/codegen/compcore.re +++ b/compiler/src/codegen/compcore.re @@ -2816,8 +2816,6 @@ and compile_instr = (wasm_mod, env, instr) => { value, ); [Expression.Return.make(wasm_mod, value)]; - | MArityOp(_) => failwith("NYI: (compile_instr): MArityOp") - | MTagOp(_) => failwith("NYI: (compile_instr): MTagOp") }; }; diff --git a/compiler/src/codegen/mashtree.re b/compiler/src/codegen/mashtree.re index 671ea066ad..8e56b3e0db 100644 --- a/compiler/src/codegen/mashtree.re +++ b/compiler/src/codegen/mashtree.re @@ -409,23 +409,6 @@ type allocation_type = limbs: array(int64), }); -[@deriving sexp] -type tag_op = - | MCheckTag - | MAssertTag - | MAddTag - | MRemoveTag; - -[@deriving sexp] -type arity_operand = - | MLambdaArity - | MTupleArity; - -[@deriving sexp] -type arity_op = - | MGetArity - | MAssertArity(int32); - [@deriving sexp] type tuple_op = | MTupleGet(int32) @@ -498,8 +481,6 @@ and instr_desc = }) | MError(grain_error, list(immediate)) | MAllocate(allocation_type) - | MTagOp(tag_op, tag_type, immediate) - | MArityOp(arity_operand, arity_op, immediate) | MIf(immediate, block, block) | MFor(option(block), option(block), block) | MContinue