]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/webapps/wiki/wiki.factor
Fixing everything for mandatory stack effects
[factor.git] / extra / webapps / wiki / wiki.factor
index 1dc6ef4ae83486b79f0fd3f06137add1d1629aef..21a983fc7b4f6a51f918186b16a94f4a17d493e2 100644 (file)
@@ -43,7 +43,7 @@ article "ARTICLES" {
 
 : <article> ( title -- article ) article new swap >>title ;
 
-: init-articles-table article ensure-table ;
+: init-articles-table ( -- ) article ensure-table ;
 
 TUPLE: revision id title author date content ;
 
@@ -68,7 +68,7 @@ M: revision feed-entry-url id>> revision-url ;
 : <revision> ( id -- revision )
     revision new swap >>id ;
 
-: init-revisions-table revision ensure-table ;
+: init-revisions-table ( -- ) revision ensure-table ;
 
 : validate-title ( -- )
     { { "title" [ v-one-line ] } } validate-params ;