check-port ( bytes addrspec port -- bytes addrspec port )

Vocabulary

io.sockets.private

Inputs

bytes	an object
addrspec	an object
port	an object

Outputs

bytes	an object
addrspec	an object
port	an object

Definition

USING: accessors byte-arrays classes kernel ;

IN: io.sockets.private

: check-port ( bytes addrspec port -- bytes addrspec port )
    2dup addr>> [ class-of ] bi@ assert=
    pick class-of byte-array assert= ;