limited-stream-seek ( n seek-type stream -- )

Vocabulary

io.streams.limited.private

Inputs

n	an object
seek-type	an object
stream	an object

Outputs

None

Definition

USING: accessors combinators io kernel math ;

IN: io.streams.limited.private

:: limited-stream-seek ( n seek-type stream -- )
    seek-type {
        { seek-absolute [ n stream current<< ] }
        { seek-relative [ stream [ n + ] change-current drop ] }
        { seek-end [ stream stop>> n - stream current<< ] }
        [ bad-seek-type ]
    } case ;