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 and ] loop ; inline