<posting> ( entry name -- entry' )

Vocabulary

webapps.planet

Inputs

entry	an object
name	an object

Outputs

entry'

an object

Definition

USING: accessors kernel sequences ;

IN: webapps.planet

:: <posting> ( entry name -- entry' )
    posting new name ": " entry title>> 3append >>title
    entry url>> >>url entry description>> >>description
    entry date>> >>date ;