sequence-seek ( n seek-type stream -- )

Vocabulary

io.streams.sequence

Inputs

n	an object
seek-type	an object
stream	an object

Outputs

None

Definition

USING: accessors combinators io kernel math sequences ;

IN: io.streams.sequence

: sequence-seek ( n seek-type stream -- )
    swap {
        { seek-absolute [ i<< ] }
        { seek-relative [ [ + ] change-i drop ] }
        { seek-end [ [ underlying>> length + ] [ i<< ] bi ] }
        [ bad-seek-type ]
    } case ;