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

comment cleanup

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-01-31 15:49:06 -06:00
parent d10df10351
commit 1d56143712
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Instructions/GenericInstructions.hs
View File

@ -157,7 +157,6 @@ instructionYankDup state@(State {_int = i : is}) accessor =
else state else state
instructionYankDup state _ = state instructionYankDup state _ = state
-- int non generic too
instructionYank :: forall a. State -> Lens' State [a] -> State instructionYank :: forall a. State -> Lens' State [a] -> State
instructionYank state@(State {_int = i : is}) accessor = instructionYank state@(State {_int = i : is}) accessor =
let 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 if notEmptyStack state{_int = is} accessor then deletedState & accessor .~ item : view accessor deletedState else state
instructionYank state _ = 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. -- 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. -- I'm not going to keep this behavior. Check out interpysh examples for how pysh handles it.
instructionShoveDup :: State -> Lens' State [a] -> State instructionShoveDup :: State -> Lens' State [a] -> State

2
src/Instructions/StringInstructions.hs
View File

@ -94,8 +94,6 @@ instructionStringInsertChar state@(State {_string = s1 : ss, _char = c1 : cs, _i
instructionStringInsertChar state = state instructionStringInsertChar state = state
instructionStringContainsChar :: 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 instructionStringContainsChar state = instructionVectorContains state char string
instructionStringIndexOfChar :: State -> State instructionStringIndexOfChar :: State -> State