do-seek-relative ( n seek-type stream -- n seek-type stream )

Vocabulary

io.ports.private

Inputs

n	an object
seek-type	an object
stream	an object

Outputs

n	an object
seek-type	an object
stream	an object

Definition

USING: io kernel math ;

IN: io.ports.private

:: do-seek-relative
    ( n seek-type stream -- n seek-type stream )
    seek-type seek-relative eq?
    [ n stream stream-tell + seek-absolute ] [ n seek-type ] if
    stream ; inline