(assert-stream-read-unsafe) ( word -- )

Vocabulary

tools.annotations.assertions

Inputs

word

an object

Outputs

None

Definition

USING: generalizations kernel tools.annotations ;

IN: tools.annotations.assertions

: (assert-stream-read-unsafe) ( word -- )
    dup [
        swap [ [ check-stream-read-unsafe-before ] ] dip compose
        [ [ check-stream-read-unsafe-after ] 4 nbi ] 2curry
    ] curry annotate ;