start-heartbeat-thread ( millis -- )

Vocabulary

discord

Inputs

millis

an object

Outputs

None

Definition

USING: accessors calendar continuations io kernel namespaces
threads ;

IN: discord

: start-heartbeat-thread ( millis -- )
    [
        [ jitter-millis sleep f send-heartbeat ] [
            milliseconds [
                sleep discord-bot get
                [ send-heartbeat?>> ] [ sequence-number>> ] bi [
                    [
                        output-stream get disposed>> ~quotation~
                        ~quotation~ if
                    ] [ 2drop f ] recover
                ] curry [ f ] if
            ] curry loop
        ] bi
    ] curry "discord-bot-heartbeat" spawn
    discord-bot get heartbeat-thread<< ;