<watching-site> ( account-name site-id -- watching-site )

Vocabulary

site-watcher.db

Inputs

account-name	an object
site-id	an object

Outputs

watching-site

an object

Definition

USING: accessors kernel ;

IN: site-watcher.db

: <watching-site> ( account-name site-id -- watching-site )
    watching-site new swap >>site-id swap >>account-name ;