def put_taken

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

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

58def put_taken(~S:Data,~K:Data,~V:Data,~R:Type,~take:R -> R & State<S,K,V>,~put:R -> State<S,K,V> -> R,~same:V -> V -> Bool,value:M.Slot<S,K,V>,pair:R & State<S,K,V>) -> R:
59  match pair:
60    case (resource,state):put(resource,replaced(~S,~K,~V,~same,state,value))