check-stream-read-unsafe-after ( count n buf stream word -- count )


Vocabulary
tools.annotations.assertions

Inputs
countan object
nan object
bufan object
streaman object
wordan object


Outputs
countan object


Definition


:: check-stream-read-unsafe-after
( count n buf stream word -- count )
count n > [
count n buf stream word
invalid-stream-read-unsafe-return
] [ count ] if ;