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


Vocabulary
io.ports.private

Inputs
nan object
seek-typean object
streaman object


Outputs
nan object
seek-typean object
streaman object


Definition


:: 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