From dd44dcf34545e6fbcfd08bb4dc302c2faade7772 Mon Sep 17 00:00:00 2001 From: Taylor Date: Wed, 15 Jan 2025 15:20:47 -0600 Subject: [PATCH] cleaner catchall case for exec_if --- src/Push.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Push.hs b/src/Push.hs index 495782a..9f8c348 100644 --- a/src/Push.hs +++ b/src/Push.hs @@ -57,9 +57,8 @@ instructionIntDiv (State es (i : is) fs bs ss ps) = State es (div (head is) i : instructionIntDiv state = state instructionExecIf :: State -> State -instructionExecIf (State es is fs [] ss ps) = (State es is fs [] ss ps) -instructionExecIf (State (e : es) is fs bs ss ps) = - case head bs of +instructionExecIf (State (e : es) is fs (b : bs) ss ps) = + case b of True -> State (e : drop 1 es) is fs bs ss ps False -> State (es) is fs bs ss ps instructionExecIf state = state