next-segment ( segments current-segment -- segment )


Vocabulary
jamshred.tunnel

Inputs
segmentsan object
current-segmentan object


Outputs
segmentan object


Definition
USING: accessors math ;

IN: jamshred.tunnel

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