X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fhtml%2Ftemplates%2Ftemplates.factor;h=89a9921a54121ce7806acf9da416342dcc5fbfc7;hp=4ffcf8c4f033db778674e4c9dce47a736eae4204;hb=41156cce815648eebcb52143ab785b5669be796d;hpb=9956ad4fbacba9c80d74d3908bc5dcec810927ff

diff --git a/basis/html/templates/templates.factor b/basis/html/templates/templates.factor
index 4ffcf8c4f0..89a9921a54 100644
--- a/basis/html/templates/templates.factor
+++ b/basis/html/templates/templates.factor
@@ -50,11 +50,10 @@ SYMBOL: title
 SYMBOL: style
 
 : add-style ( string -- )
-    "\n" style get push-all
-         style get push-all ;
+    style get push ;
 
 : get-style ( -- string )
-    style get >string ;
+    style get <reversed> "\n" join ;
 
 : write-style ( -- )
     get-style write ;
@@ -62,11 +61,10 @@ SYMBOL: style
 SYMBOL: script
 
 : add-script ( string -- )
-    "\n" script get push-all
-         script get push-all ;
+    script get push ;
 
 : get-script ( -- string )
-    script get >string ;
+    script get <reversed> "\n" join ;
 
 : write-script ( -- )
     get-script write ;
@@ -115,8 +113,8 @@ M: f call-template* drop call-next-template ;
 : with-boilerplate ( child master -- )
     [
         title [ [ <box> ] unless* ] change
-        style [ [ SBUF" " clone ] unless* ] change
-        script [ [ SBUF" " clone ] unless* ] change
+        style [ [ V{ } clone ] unless* ] change
+        script [ [ V{ } clone ] unless* ] change
         meta [ [ V{ } clone ] unless* ] change
         atom-feeds [ V{ } like ] change