steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/xml/generator/generator.factor
View File

@ -25,10 +25,7 @@ IN: xml.generator
: make-xml ( name quot -- xml ) : make-xml ( name quot -- xml )
f swap make-xml* ; inline f swap make-xml* ; inline
SYMBOL: namespace-table ! Word-based XML literal syntax
: with-namespaces ( table quot -- )
>r H{ } assoc-like namespace-table r> with-variable ; inline
: parsed-name ( accum -- accum ) : parsed-name ( accum -- accum )
scan ":" split1 [ f <name> ] [ <name-tag> ] if* parsed ; scan ":" split1 [ f <name> ] [ <name-tag> ] if* parsed ;