send-loop ( broadcast-server -- )

Vocabulary

broadcast-server

Inputs

broadcast-server

an object

Outputs

None

Definition

USING: accessors calendar destructors kernel threads ;

IN: broadcast-server

: send-loop ( broadcast-server -- )
    '[
        [
            _ dup should-stop?>>
            [ dispose f ]
            [ payload data rot broadcast-server-send t ] if
            3 seconds sleep
        ] loop
    ] in-thread ;