paste ( id -- paste/f )

Vocabulary

webapps.pastebin

Inputs

id

an object

Outputs

paste/f

an object

Definition

USING: accessors db.tuples kernel ;

IN: webapps.pastebin

: paste ( id -- paste/f )
    [ <paste-state> select-tuple ] keep over
    [ f <annotation> select-tuples >>annotations ] [ drop ] if ;