<comment> ( parent id -- post )

Vocabulary

webapps.blogs

Inputs

parent	an object
id	an object

Outputs

post

an object

Definition

USING: accessors kernel ;

IN: webapps.blogs

: <comment> ( parent id -- post )
    comment new swap >>id swap >>parent ;