adjust-count-limit ( n stream -- n' stream )


Vocabulary
io.streams.limited.private

Inputs
nan object
streaman object


Outputs
n'an object
streaman object


Definition
USING: accessors kernel math ;

IN: io.streams.limited.private

: adjust-count-limit ( n stream -- n' stream )
2dup [ + ] change-count [ count>> ] [ limit>> ] bi > [
dup [ count>> ] [ limit>> ] bi - [ - ] curry dip
dup limit>> >>count
] when ; inline