adjust-limited-read ( n stream -- n stream )


Vocabulary
io.streams.limited.private

Inputs
nan object
streaman object


Outputs
nan object
streaman object


Definition
USING: accessors kernel ;

IN: io.streams.limited.private

: adjust-limited-read ( n stream -- n stream )
dup start>>
[ check-current-bounds adjust-current-limit ]
[ check-count-bounds adjust-count-limit ] if ;