maybe-read-unsafe ( n buf limited-stream quot: ( n buf stream -- count ) -- count )


Vocabulary
io.streams.limited.private

Inputs
nan object
bufan object
limited-streaman object
quota quotation with stack effect ( n buf stream -- count )


Outputs
countan object


Definition
USING: accessors kernel math ;

IN: io.streams.limited.private

:: maybe-read-unsafe
( n buf limited-stream quot: ( n buf stream -- count ) -- count )
n limited-stream adjust-limited-read :> ( n' lstream' ) n' 0
<= [ 0 ] [ n' buf lstream' stream>> quot call ] if ; inline