define-tag ( string word quot -- )

Vocabulary

xml.syntax.private

Inputs

string	an object
word	an object
quot	an object

Outputs

None

Definition

USING: assocs effects words ;

IN: xml.syntax.private

:: define-tag ( string word quot -- )
    quot string word "xtable" word-prop set-at
    word word stack-effect define-tags ;