def publish_nonempty_generic

bendvy-ecs-core@0.1.0.3 · machine_stream_queue.bend:17

import Base

17# The compatibility batch-list lowering also uses count zero for empty batches.
18def publish_nonempty_generic(-E: Data,queue: Queue<E>,+tick: Nat,+items: List<&2,E>,+count: Nat) -> Queue<E>:
19  match queue:
20    case Queue{front,back,size,dropped,batches}: Queue{front,Batch{tick,count,items} <> back,Nat.add(size,count),dropped,1n+batches}