OrdinaryBundle.compose: def of bendvy-ecs-core@0.1.0.4
Import: import bendvy-ecs-core@0.1.0.4/ordinary_bundle.bend as OrdinaryBundle
Lines 22-27 of bendvy-ecs-core@0.1.0.4/ordinary_bundle.bend: https://jend.leeeet.dev/read.txt?path=bendvy-ecs-core@0.1.0.4/ordinary_bundle.bend&start_line=22&end_line=27

import Base
import schema_fragments.bend as SF
import bundle_pack.bend as Pack

# Append head/tail component entries and derive matching nested Pack types.
# Preserves heterogeneous affine payload shapes without receiving live payloads;
# collisions are checked by request, not by this composition step.
def compose(~S:Data,~HR:Type,~HC:Type,~TR:Type,~TC:Type,head:Plan<S,HR,HC>,tail:Plan<S,TR,TC>) -> Plan<S,Pack.Pack<HR,TR>,Pack.Pack<HC,TC>>:
  match head tail:
    case Plan{heads} Plan{tails}:Plan{List.append(&2,SF.Entry<S>,heads,tails)}

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List.append
  https://jend.leeeet.dev/definition.txt?path=bendvy-ecs-core@0.1.0.4/bundle_pack.bend&name=Pack
  https://jend.leeeet.dev/definition.txt?path=bendvy-ecs-core@0.1.0.4/ordinary_bundle.bend&name=Plan
  https://jend.leeeet.dev/definition.txt?path=bendvy-ecs-core@0.1.0.4/schema_fragments.bend&name=Entry