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