~/jendhub

def insert_taken

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

import bendvy-ecs-core@0.1.0.4/ordinary_machine_initialization.bend as OrdinaryMachineInitialization
import Base

65def insert_taken(~S:Data,~K:Data,~V:Data,~R:Type,~take:R -> R & State<S,K,V>,~put:R -> State<S,K,V> -> R,value:V,tick:Nat,pair:R & State<S,K,V>) -> R & Unit:
66  match pair:
67    case (resource,state):(put(resource,inserted(~S,~K,~V,state,value,tick)),Unit{})

Uses (6)

Used by (1)