diff --git a/src/Instructions/IntInstructions.hs b/src/Instructions/IntInstructions.hs index 55ccdb1..2a1c7b6 100644 --- a/src/Instructions/IntInstructions.hs +++ b/src/Instructions/IntInstructions.hs @@ -82,5 +82,5 @@ instructionIntStackDepth state = instructionStackDepth state int -- int specific instructionIntYank :: State -> State -instructionIntYank state@(State {_int = index : i2 : is}) = +instructionIntYank state@(State {_int = index : i2 : is}) = undefined instructionIntYank state = state