read-frames ( quot: ( frame -- ) -- )

Vocabulary

stomp

Inputs

quot	a quotation with stack effect ( frame -- )

Outputs

None

Definition

USING: combinators kernel ;

IN: stomp

:: read-frames ( quot: ( frame -- ) -- )
    [
        read-frame [
            dup quot ( frame -- ) call-effect
            wait-for-disconnect
        ] [ f ] if*
    ] loop ;