simple-server ( -- )

Vocabulary

benchmark.sockets

Inputs

None

Outputs

None

Definition

USING: concurrency.promises continuations destructors namespaces
;

IN: benchmark.sockets

: simple-server ( -- )
    [ server get [ server-loop ] with-disposal ] ignore-errors
    t server-promise get fulfill ;