assure-no-duplicates ( attrs-alist -- attrs-alist )

Vocabulary

xml.elements

Inputs

attrs-alist

an object

Outputs

attrs-alist

an object

Definition

USING: assocs kernel math sequences xml.errors ;

IN: xml.elements

: assure-no-duplicates ( attrs-alist -- attrs-alist )
    H{ } clone 2dup [ [ swap ] ] dip [ push-at ] curry compose
    assoc-each [ nip length 2 >= ] { } assoc-filter-as
    [ first first2 duplicate-attr ] unless-empty ;