help.html: cleanup extra spaces.

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index f88a2510b48677337ef2c25e3ada0d4e8799445f..97f4dfcef436da86830fec3c721350f8ac23fd79 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -94,7 +94,7 @@ M: pathname url-of
 
 : css-classes ( classes -- stylesheet )
     [
-        [ " { " " }" surround ] [ "." prepend ] bi* prepend
+        [ " { " "}" surround ] [ "." prepend ] bi* prepend
     ] { } assoc>map "\n" join ;
 
 :: css-styles-to-classes ( body -- stylesheet body )

diff --git a/basis/html/streams/streams.factor b/basis/html/streams/streams.factor
index acb28d208100aebdca3b4adaf6dbd86797fc5c49..978ae1e0ef65b2ea9d29c8d259856a7193565b87 100644 (file)
--- a/basis/html/streams/streams.factor
+++ b/basis/html/streams/streams.factor
@@ -121,7 +121,7 @@ CONSTANT: pre-css "white-space: pre; font-family: monospace;"
             { inset padding-css, }
         } make-css
     ] [ wrap-margin of [ pre-css append ] unless ] bi
-    " display: inline-block;" append ;
+    "display: inline-block; " append ;
 
 : div-tag ( xml style -- xml' )
     div-css-style