write-tuple-fields ( mirror tuple assoc quot: ( tuple -- assoc ) -- )

Vocabulary

mongodb.tuple.persistent.private

Inputs

mirror	an object
tuple	an object
assoc	an object
quot	a quotation with stack effect ( tuple -- assoc )

Outputs

None

Definition

USING: assocs kernel ;

IN: mongodb.tuple.persistent.private

: write-tuple-fields
    ( mirror tuple assoc quot: ( tuple -- assoc ) -- )
    swap [ [ write-field swap ] curry ] dip [ set-at ] curry
    compose [ [ 2over write-field? ] curry ] dip
    [ [ 2drop ] if ] curry compose assoc-each ;