         [ "author" value authorize-author ] >>authorize
 
         [
-            "id" value <post>
+            "id" value <post-state>
             dup { "title" "author" "date" "content" } to-object
             [ update-tuple ] [ entity-url <redirect> ] bi
         ] >>submit

        swap >>parent ;

: post ( id -- post )
    [ <post> select-tuple ] [ f <comment> select-tuples ] bi
    >>comments ;

: reverse-chronological-order ( seq -- sorted )


: do-post-action ( -- )
    validate-integer-id
    "id" value <post-state> select-tuple from-object ;

: <edit-post-action> ( -- action )
    <page-action>
