send/recv ( packet server client -- )

Vocabulary

benchmark.udp-echo0

Inputs

packet	an object
server	an object
client	an object

Outputs

None

Definition

USING: accessors io.sockets kernel ;

IN: benchmark.udp-echo0

: send/recv ( packet server client -- )
    [ 2dup addr>> ] [ send ] bi* receive drop assert= ;