port>bytes ( port -- hi lo )

Vocabulary

ftp.server

Inputs

port

an object

Outputs

hi	an object
lo	an object

Definition

USING: kernel math math.bitwise ;

IN: ftp.server

: port>bytes ( port -- hi lo )
    [ -8 shift ] keep [ 8 bits ] bi@ ;