wait-to-write ( len port -- )

Vocabulary

io.ports

Inputs

len	an object
port	an object

Outputs

None

Definition

USING: accessors io.buffers io.ports.private kernel math ;

IN: io.ports

: wait-to-write ( len port -- )
    [ nip ] [ buffer>> buffer-capacity <= ] 2bi
    [ drop ] [ port-flush ] if ; inline