watching-sites ( username -- sites )

Vocabulary

site-watcher.db

Inputs

username

an object

Outputs

sites

an object

Definition

USING: accessors db.tuples kernel sequences ;

IN: site-watcher.db

: watching-sites ( username -- sites )
    f <watching-site> select-tuples
    [ site-id>> site new swap >>site-id select-tuple ] map ;