make-cursor ( mdb-result-msg mdb-query-msg/mdb-getmore-msg -- mdb-cursor/f )

Vocabulary

mongodb.driver.private

Inputs

mdb-result-msg	an object
mdb-query-msg/mdb-getmore-msg	an object

Outputs

mdb-cursor/f

an object

Definition

USING: accessors kernel math ;

IN: mongodb.driver.private

: make-cursor
    ( mdb-result-msg mdb-query-msg/mdb-getmore-msg -- mdb-cursor/f )
    over cursor>> 0 >
    [ [ update-query ] [ [ cursor>> ] dip <mdb-cursor> ] 2bi ]
    [ 2drop f ] if ;