def retained_registration

bendvy-ecs-core@0.1.0.3 · execution_system_registration.bend:31

import Base
import bendvy-ecs-core@0.1.0.3/world.bend as W
import bendvy-ecs-core@0.1.0.3/execution_system.bend as Sys
import bendvy-ecs-core@0.1.0.3/execution_declaration.bend as D
import bendvy-ecs-core@0.1.0.3/execution_builder.bend as Build

31def retained_registration(~S:Data,~WC:Type,~C:Type,~R:Type,~E:Data,~Ops:Data -> (Type -> Type) -> Type -> Type,~Local:Type,~Error:Data,~Out:Data,~declaration:Build.FrameworkProgram(~S,~WC,~C,~R,~Ops),~body:Sys.Body(~S,~Ops,~Local,~Error,~Out),~WR:Type,compilation:D.Compilation<S,WC,C,R,Ops>,namespace:U32,+name:String,+access:List<&2,String>,local:Local,world:W.World<S,WC,WR,E>) -> D.Compilation<S,WC,C,R,Ops> & Sys.Defined<W.World<S,WC,WR,E>,Sys.Owner<S,WC,C,R,E,Ops,Local,Error,Out,declaration,body>,Local>:
32  (compilation,registered(~S,~WC,~C,~R,~E,~Ops,~Local,~Error,~Out,~declaration,~body,~WR,namespace,name,access,local,W.register(~S,~WC,~WR,~E,world,name,access)))