From 4500e6e97eeb77a5d5f87730c5434a71d3562a39 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Thu, 22 Jan 2009 16:44:37 -0600 Subject: [PATCH] Making certain writer words public, to fix html.templating.chloe --- basis/xml/writer/writer.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor index 3a274d7135..d8283963f1 100644 --- a/basis/xml/writer/writer.factor +++ b/basis/xml/writer/writer.factor @@ -39,11 +39,11 @@ SYMBOL: indenter [ [ empty? ] [ string? ] bi and not ] filter ] when ; +PRIVATE> + : name>string ( name -- string ) [ main>> ] [ space>> ] bi [ ":" rot 3append ] unless-empty ; -PRIVATE> - : print-name ( name -- ) name>string write ; @@ -158,14 +158,14 @@ M: instruction write-xml-chunk M: sequence write-xml-chunk [ write-xml-chunk ] each ; +PRIVATE> + : write-prolog ( xml -- ) "> write "\" encoding=\"" write dup encoding>> write standalone>> [ "\" standalone=\"yes" write ] when "\"?>" write ; -PRIVATE> - : write-xml ( xml -- ) { [ prolog>> write-prolog ]