Fixing everything for mandatory stack effects

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

diff --git a/extra/html/components/components.factor b/extra/html/components/components.factor
index 72dabad84e1dbf4e22bf150673f01acf12ecbe5d..42d89811c1fd9e8ca156b5daddba9d27e3331e60 100644 (file)
--- a/extra/html/components/components.factor
+++ b/extra/html/components/components.factor
@@ -10,11 +10,11 @@ IN: html.components
 
 SYMBOL: values
 
-: value values get at ;
+: value ( name -- value ) values get at ;
 
-: set-value values get set-at ;
+: set-value ( value name -- ) values get set-at ;
 
-: blank-values H{ } clone values set ;
+: blank-values ( -- ) H{ } clone values set ;
 
 : prepare-value ( name object -- value name object )
     [ [ value ] keep ] dip ; inline