html.streams: allow div-css-style to use span-css-style.

diff --git a/basis/html/streams/streams.factor b/basis/html/streams/streams.factor
index cf413dde1112f30204820f6756ef0c978532b182..d78839d8748b14970950b621274a189691bfd06d 100644 (file)
--- a/basis/html/streams/streams.factor
+++ b/basis/html/streams/streams.factor
@@ -114,14 +114,15 @@ M: html-span-stream dispose
 CONSTANT: pre-css "white-space: pre; font-family: monospace; "
 
 : div-css-style ( style -- str )
+    [ span-css-style ]
     [
         {
             { page-color bg-css, }
             { border-color border-css, }
             { inset padding-css, }
         } make-css
-    ] [ wrap-margin of [ pre-css append ] unless ] bi
-    "display: inline-block; " append ;
+    ] [ wrap-margin of [ pre-css append ] unless ] tri
+    "display: inline-block; " 3append ;
 
 : div-tag ( xml style -- xml' )
     div-css-style