verify-nodes ( mdb -- )

Vocabulary

mongodb.connection

Inputs

mdb

an object

Outputs

None

Definition

USING: accessors destructors kernel mongodb.connection.private
sequences ;

IN: mongodb.connection

:: verify-nodes ( mdb -- )
    [
        V{ } clone :> acc mdb dup master-node
        [ check-node ] keep :> node1 mdb node1 remote>>
        [ [ check-node ] keep ] [ drop f ] if* :> node2 node1
        [ acc push ] when* node2 [ acc push ] when*
        mdb acc nodelist>table >>nodes drop
    ] with-destructors ;