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


Vocabulary
mongodb.driver.private

Inputs
mdb-result-msgan object
mdb-query-msg/mdb-getmore-msgan object


Outputs
mdb-cursor/fan object


Definition


: 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 ;