server>address ( server -- port )

Vocabulary

benchmark.tcp-echo0

Inputs

server

an object

Outputs

port

an object

Definition

USING: accessors io.servers sequences ;

IN: benchmark.tcp-echo0

: server>address ( server -- port )
    servers>> first addr>> port>> local-server ;