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


Vocabulary
io.streams.limited.private

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


Definition


:: 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