diff --git a/basis/html/streams/streams-tests.factor b/basis/html/streams/streams-tests.factor index 354a1c4079..4be6a663c2 100644 --- a/basis/html/streams/streams-tests.factor +++ b/basis/html/streams/streams-tests.factor @@ -49,7 +49,7 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ; ] make-html-string ] unit-test -{ "
cdr
" } +{ "
cdr
" } [ [ H{ { page-color T{ rgba f 1 0 1 1 } } } @@ -57,7 +57,7 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ; ] make-html-string ] unit-test -{ "

" } [ +{ "

" } [ [ H{ } [ ] with-nesting nl ] make-html-string ] unit-test diff --git a/basis/html/streams/streams.factor b/basis/html/streams/streams.factor index 1cd46c7a42..7a20014388 100644 --- a/basis/html/streams/streams.factor +++ b/basis/html/streams/streams.factor @@ -55,8 +55,7 @@ TUPLE: html-sub-stream < html-writer style parent ; "font-size: " % # "pt; " % ; : font-css, ( font -- ) - [ "font-family: " % % "; " % ] - [ "monospace" = [ "white-space: pre-wrap; " % ] when ] bi ; + "font-family: " % % "; " % ; MACRO: make-css ( pairs -- str ) [ '[ _ of [ _ execute ] when* ] ] { } assoc>map