From d6b545a10bb396919ec1ef210c978a0045340cf1 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 14 Sep 2015 20:32:45 -0700 Subject: [PATCH] html.streams: fix tests. --- basis/html/streams/streams-tests.factor | 4 ++-- basis/html/streams/streams.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/html/streams/streams-tests.factor b/basis/html/streams/streams-tests.factor index 6c03d16178..354a1c4079 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 978ae1e0ef..cf413dde11 100644 --- a/basis/html/streams/streams.factor +++ b/basis/html/streams/streams.factor @@ -111,7 +111,7 @@ M: html-span-stream dispose : padding-css, ( padding -- ) first2 (padding-css,) ; -CONSTANT: pre-css "white-space: pre; font-family: monospace;" +CONSTANT: pre-css "white-space: pre; font-family: monospace; " : div-css-style ( style -- str ) [