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 _ set ] ] [ '[ _ attr _ =/fail ] ] if
    ] { } assoc>map '[ _ cleave ] ;