adjust-current-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-current-limit ( n stream -- n' stream )
2dup [ + ] change-current [ current>> ] [ stop>> ] bi >
[ dup [ current>> ] [ stop>> ] bi - [ - ] curry dip ] when ;
inline