]> gitweb.factorcode.org Git - factor.git/commitdiff
fix httpd load issue
authorSlava Pestov <slava@factorcode.org>
Tue, 24 Jan 2006 04:03:15 +0000 (04:03 +0000)
committerSlava Pestov <slava@factorcode.org>
Tue, 24 Jan 2006 04:03:15 +0000 (04:03 +0000)
contrib/httpd/html.factor

index be044c197930403fcb4d309814ca0baa3e989de6..654b52992a7703eff36ac6fe205567ed868319f9 100644 (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