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 ] curry suffix [ [ dup main>> ] ] dip
    [ case ] curry compose ;