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

Making certain writer words public, to fix html.templating.chloe

db4
Daniel Ehrenberg 2009-01-22 16:44:37 -06:00
parent 0041f26d90
commit 4500e6e97e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/xml/writer/writer.factor
View File

@ -39,11 +39,11 @@ SYMBOL: indenter
[ [ empty? ] [ string? ] bi and not ] filter [ [ empty? ] [ string? ] bi and not ] filter
] when ; ] when ;
PRIVATE>
: name>string ( name -- string ) : name>string ( name -- string )
[ main>> ] [ space>> ] bi [ ":" rot 3append ] unless-empty ; [ main>> ] [ space>> ] bi [ ":" rot 3append ] unless-empty ;
PRIVATE>
: print-name ( name -- ) : print-name ( name -- )
name>string write ; name>string write ;
@ -158,14 +158,14 @@ M: instruction write-xml-chunk
M: sequence write-xml-chunk M: sequence write-xml-chunk
[ write-xml-chunk ] each ; [ write-xml-chunk ] each ;
PRIVATE>
: write-prolog ( xml -- ) : write-prolog ( xml -- )
"<?xml version=\"" write dup version>> write "<?xml version=\"" write dup version>> write
"\" encoding=\"" write dup encoding>> write "\" encoding=\"" write dup encoding>> write
standalone>> [ "\" standalone=\"yes" write ] when standalone>> [ "\" standalone=\"yes" write ] when
"\"?>" write ; "\"?>" write ;
PRIVATE>
: write-xml ( xml -- ) : write-xml ( xml -- )
{ {
[ prolog>> write-prolog ] [ prolog>> write-prolog ]