with-input-seek ( n seek-type quot -- )

Vocabulary

dns

Inputs

n	an object
seek-type	an object
quot	an object

Outputs

None

Definition

USING: io kernel ;

IN: dns

: with-input-seek ( n seek-type quot -- )
    tell-input [ [ seek-input ] dip call ] dip
    seek-absolute seek-input ; inline