recv-ping ( addr raw -- echo )

Vocabulary

ping.private

Inputs

addr	an object
raw	an object

Outputs

echo

an object

Definition

USING: io.sockets kernel sequences ;

IN: ping.private

:: recv-ping ( addr raw -- echo )
    raw receive addr =
    [ 20 tail byte-array>echo ] [ drop addr raw recv-ping ] if ;