         [ "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

        "edit a blog post" >>description ;

: delete-post ( id -- )
    [ <post> delete-tuples ] [ f <comment> delete-tuples ] bi ;

: <delete-post-action> ( -- action )
    <action>

        ] >>validate

        [
            f <post-state>
                dup { "title" "content" } to-object
                username >>author
                now >>date
