optl>map ( seq -- map )


Vocabulary
mongodb.tuple.collection.private

Inputs
seqan object


Outputs
mapan object


Definition
USING: assocs kernel sequences ;

IN: mongodb.tuple.collection.private

: optl>map ( seq -- map )
[ H{ } clone ] dip over [ [ split-optl swap ] ] dip
[ set-at ] curry compose each ; inline