XML generator changes

db4
Daniel Ehrenberg 2007-12-04 16:33:46 -05:00
parent 0c3e6501fe
commit fa5b1edca2
1 changed files with 1 additions and 4 deletions

View File

@ -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 <name> ] [ <name-tag> ] if* parsed ;