check-no-value ( key assoc -- table )

Vocabulary

toml.private

Inputs

key	an object
assoc	an object

Outputs

table

an object

Definition

USING: assocs hashtables kernel toml ;

IN: toml.private

: check-no-value ( key assoc -- table )
    over [ duplicate-key ] curry [ [ dup hashtable? ] ] dip
    [ unless ] curry compose [ [ H{ } clone ] if* dup ] curry
    change-at ;