Vocabulary
jamshred.tunnel

Inputs
segmentsan object
current-segmentan object


Outputs
segmentan object


Definition


: next-segment ( segments current-segment -- segment )
number>> 1 + get-segment ;