dbref>assoc ( dbref -- assoc )

Vocabulary

bson.constants

Inputs

dbref

an object

Outputs

assoc

an object

Definition

USING: accessors assocs combinators kernel linked-assocs ;

IN: bson.constants

: dbref>assoc ( dbref -- assoc )
    [ <linked-hash> ] dip over {
        [ [ ref>> "$ref" ] [ set-at ] bi* ]
        [ [ id>> "$id" ] [ set-at ] bi* ]
        [
            over db>>
            [ [ db>> "$db" ] [ set-at ] bi* ] [ 2drop ] if
        ]
    } 2cleave ; inline