update-toml ( assoc node -- assoc' )

Vocabulary

toml.private

Inputs

assoc	an object
node	an object

Outputs

assoc'

an object

Definition

IN: toml.private

GENERIC: update-toml ( assoc node -- assoc' )

Methods

USING: accessors assocs kernel toml.private ;

M: entry update-toml
    dupd [ key>> entries-at ] [ value>> ] bi
    -rot check-no-key set-at ;


USING: accessors assocs kernel linked-assocs toml.private ;

M: table update-toml
    [ name>> entries-at ] [ array?>> ] bi
    [ LH{ } clone [ -rot push-at ] keep ] [ check-no-value ] if
    ;