segment-number++ ( segment -- )

Vocabulary

jamshred.tunnel

Inputs

segment

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: jamshred.tunnel

: segment-number++ ( segment -- )
    [ number>> 1 + ] keep number<< ;