diff --git a/contrib/httpd/html.factor b/contrib/httpd/html.factor index be044c1979..654b52992a 100644 --- a/contrib/httpd/html.factor +++ b/contrib/httpd/html.factor @@ -149,6 +149,9 @@ M: html-stream stream-format ( str style stream -- ) ] object-link-tag ] with-stream* ; +: with-html-stream ( quot -- ) + stdio get swap with-stream* ; + : html-outliner ( caption contents -- ) @@ -183,9 +186,6 @@ M: html-stream with-nested-stream ( quot style stream -- ) M: html-stream stream-terpri [
] with-stream* ; -: with-html-stream ( quot -- ) - stdio get swap with-stream* ; - : default-css ( -- )