check-pool ( pool -- )

Vocabulary

io.pools

Inputs

pool

an object

Outputs

None

Definition

USING: accessors alien destructors kernel sequences ;

IN: io.pools

: check-pool ( pool -- )
    check-disposed dup expired>> expired?
    [ 31337 <alien> >>expired connections>> delete-all ]
    [ drop ] if ;