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
    ] curry [ loop ] curry in-thread ;