diff --git a/extra/xml/generator/generator.factor b/extra/xml/generator/generator.factor index 1d1a6c09d3..84edc4e551 100644 --- a/extra/xml/generator/generator.factor +++ b/extra/xml/generator/generator.factor @@ -25,10 +25,7 @@ IN: xml.generator : make-xml ( name quot -- xml ) f swap make-xml* ; inline -SYMBOL: namespace-table -: with-namespaces ( table quot -- ) - >r H{ } assoc-like namespace-table r> with-variable ; inline - +! Word-based XML literal syntax : parsed-name ( accum -- accum ) scan ":" split1 [ f ] [ ] if* parsed ;