compile-tags ( word xtable -- quot )

Vocabulary

xml.syntax.private

Inputs

word	an object
xtable	an object

Outputs

quot

an object

Definition

USING: accessors assocs combinators kernel sequences ;

IN: xml.syntax.private

: compile-tags ( word xtable -- quot )
    >alist swap '[ _ no-tag ] suffix '[ dup main>> _ case ] ;