undo-attrs ( attrs -- quot: ( attrs -- ) )

Vocabulary

xml.syntax.inverse

Inputs

attrs

an object

Outputs

quot	a quotation with stack effect ( attrs -- )

Definition

USING: accessors assocs combinators inverse kernel namespaces
xml.data ;

IN: xml.syntax.inverse

: undo-attrs ( attrs -- quot: ( attrs -- ) )
    [
        [ main>> ] dip dup interpolated?
        [ var>> [ [ attr ] curry ] dip [ set ] curry compose ]
        [ [ [ attr ] curry ] dip [ =/fail ] curry compose ] if
    ] { } assoc>map [ cleave ] curry ;