check-node ( mdb node -- )

Vocabulary

mongodb.connection.private

Inputs

mdb	an object
node	an object

Outputs

None

Definition

USING: continuations destructors kernel mongodb.connection ;

IN: mongodb.connection.private

: check-node ( mdb node -- )
    [ <mdb-connection> &dispose ] dip
    [ [ open-connection ] [ 3drop f ] recover ] keep swap
    [ [ get-ismaster eval-ismaster-result ] with-connection ]
    [ drop ] if* ;