Fix what I think is a bug, although tests still do not all pass.
Chris Pressey
1 year, 18 days ago
49 | 49 |
|
50 | 50 |
commitAndRepeat :: State -> State
|
51 | 51 |
commitAndRepeat state@State{ saved=(Just previous) } =
|
52 | |
state{ pc=((pc previous) - 1) }
|
|
52 |
state{ saved=(saved previous), pc=((pc previous) - 1) }
|