fix httpd load issue

cvs
Slava Pestov 2006-01-24 04:03:15 +00:00
parent 6cfa1db4df
commit 59c4195889
1 changed files with 3 additions and 3 deletions

View File

@ -149,6 +149,9 @@ M: html-stream stream-format ( str style stream -- )
] object-link-tag
] with-stream* ;
: with-html-stream ( quot -- )
stdio get <html-stream> swap with-stream* ;
: html-outliner ( caption contents -- )
<table "display: inline; " =style table>
<tr>
@ -183,9 +186,6 @@ M: html-stream with-nested-stream ( quot style stream -- )
M: html-stream stream-terpri [ <br/> ] with-stream* ;
: with-html-stream ( quot -- )
stdio get <html-stream> swap with-stream* ;
: default-css ( -- )
<style>
"A:link { text-decoration: none; color: black; }" print