port-flush ( port -- )

Vocabulary

io.ports.private

Inputs

port

an object

Outputs

None

Definition

USING: accessors io.buffers io.ports kernel ;

IN: io.ports.private

: port-flush ( port -- )
    dup buffer>> buffer-empty?
    [ drop ] [ dup (wait-to-write) port-flush ] if ; inline
    recursive