read-websocket-loop ( quot: ( obj opcode -- loop? ) -- )

Vocabulary

http.websockets

Inputs

quot	a quotation with stack effect ( obj opcode -- loop? )

Outputs

None

Definition

USING: kernel ;

IN: http.websockets

: read-websocket-loop ( quot: ( obj opcode -- loop? ) -- )
    [ [ read-websocket ] ] dip [ dip and ] curry compose loop ;
    inline