Fixing everything for mandatory stack effects

[factor.git] / extra / html / streams / streams.factor

diff --git a/extra/html/streams/streams.factor b/extra/html/streams/streams.factor
index e3f45e4c25b31e65951a3d156f0b76129d64923b..eae13f53ada60252c9c8469da01ff1000bc5f379 100755 (executable)
--- a/extra/html/streams/streams.factor
+++ b/extra/html/streams/streams.factor
@@ -135,7 +135,7 @@ TUPLE: html-block-stream < html-sub-stream ;
 M: html-block-stream dispose ( quot style stream -- )
     end-sub-stream a-div format-html-div ;
 
-: border-spacing-css,
+: border-spacing-css, ( pair -- )
     "padding: " % first2 max 2 /i # "px; " % ;
 
 : table-style ( style -- str )