Fixing everything for mandatory stack effects

[factor.git] / extra / webapps / blogs / blogs.factor

diff --git a/extra/webapps/blogs/blogs.factor b/extra/webapps/blogs/blogs.factor
index 60911b4947b663fade1b26e0df34c56359fa589f..8dbf7db6901ffafa7d29bc92c04974cde8a03de8 100644 (file)
--- a/extra/webapps/blogs/blogs.factor
+++ b/extra/webapps/blogs/blogs.factor
@@ -50,7 +50,7 @@ M: post entity-url
 
 : <post> ( id -- post ) \ post new swap >>id ;
 
-: init-posts-table \ post ensure-table ;
+: init-posts-table ( -- ) \ post ensure-table ;
 
 TUPLE: comment < entity parent ;
 
@@ -69,7 +69,7 @@ M: comment entity-url
         swap >>id
         swap >>parent ;
 
-: init-comments-table comment ensure-table ;
+: init-comments-table ( -- ) comment ensure-table ;
 
 : post ( id -- post )
     [ <post> select-tuple ] [ f <comment> select-tuples ] bi