From 1d561437124041e2c1524376bf88ba7b9f5e8daa Mon Sep 17 00:00:00 2001 From: Rowan Torbitzky-Lane Date: Fri, 31 Jan 2025 15:49:06 -0600 Subject: [PATCH] comment cleanup --- src/Instructions/GenericInstructions.hs | 3 +-- src/Instructions/StringInstructions.hs | 2 -- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/src/Instructions/GenericInstructions.hs b/src/Instructions/GenericInstructions.hs index 1758e2b..872fff1 100644 --- a/src/Instructions/GenericInstructions.hs +++ b/src/Instructions/GenericInstructions.hs @@ -157,7 +157,6 @@ instructionYankDup state@(State {_int = i : is}) accessor = else state instructionYankDup state _ = state --- int non generic too instructionYank :: forall a. State -> Lens' State [a] -> State instructionYank state@(State {_int = i : is}) accessor = let @@ -171,7 +170,7 @@ instructionYank state@(State {_int = i : is}) accessor = if notEmptyStack state{_int = is} accessor then deletedState & accessor .~ item : view accessor deletedState else state instructionYank state _ = state --- instructionShoveDup and instructionShove behave differently when indexing in such a way that +-- In pysh, instructionShoveDup and instructionShove behave differently when indexing in such a way that -- the duplicated index matters whether or not it's present in the stack at the moment of calculation. -- I'm not going to keep this behavior. Check out interpysh examples for how pysh handles it. instructionShoveDup :: State -> Lens' State [a] -> State diff --git a/src/Instructions/StringInstructions.hs b/src/Instructions/StringInstructions.hs index 0c7073a..c26aada 100644 --- a/src/Instructions/StringInstructions.hs +++ b/src/Instructions/StringInstructions.hs @@ -94,8 +94,6 @@ instructionStringInsertChar state@(State {_string = s1 : ss, _char = c1 : cs, _i instructionStringInsertChar state = state instructionStringContainsChar :: State -> State --- instructionStringContainsChar state@(State {_string = s1 : ss, _char = c1 : cs, _bool = bs}) = state{_string = ss, _char = cs, _bool = (findSubA s1 [c1] /= -1) : bs} --- instructionStringContainsChar state = state instructionStringContainsChar state = instructionVectorContains state char string instructionStringIndexOfChar :: State -> State