make-tuple ( assoc -- tuple )

Vocabulary

mongodb.tuple.persistent.private

Inputs

assoc

an object

Outputs

tuple

an object

Definition

USING: assocs kernel mongodb.tuple.persistent sequences ;

IN: mongodb.tuple.persistent.private

: make-tuple ( assoc -- tuple )
    prepare-assoc>tuple
    [ [ [ dup ] ] dip [ at assoc>tuple swap ] curry compose ]
    dip [ set-at ] curry compose each ; inline recursive