def replaced

bendvy-ecs-core@0.1.0.4 · ordinary_machine_initialization.bend:34

import Base
import bendvy-ecs-core@0.1.0.4/machine.bend as M

34# Queue-only writes preserve revision. Actual unequal commits increment it.
35def replaced(~S:Data,~K:Data,~V:Data,~same:V -> V -> Bool,state:State<S,K,V>,+value:M.Slot<S,K,V>) -> State<S,K,V>:
36  match state:
37    case State{old,stream,revision}:State{value,stream,next_revision(same_current(~S,~K,~V,~same,old,value),revision)}