rowan.a.tl/HushGP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cleaner catchall case for exec_if

Browse Source
This commit is contained in:
Taylor 2025-01-15 15:20:47 -06:00
parent 99e0938f08
commit dd44dcf345
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Push.hs
View File

@ -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