with-position ( quot -- )

Vocabulary

tools.image

Inputs

quot	a quotation

Outputs

None

Word description

marks position in input-stream and return to it after quotation has finished

Definition

USING: continuations io kernel ;

IN: tools.image

: with-position ( quot -- )
    tell-input [ seek-absolute seek-input ] curry finally ;
    inline