select-account/site ( username url -- account site )

Vocabulary

site-watcher.db

Inputs

username	an object
url	an object

Outputs

account	an object
site	an object

Definition

USING: accessors ;

IN: site-watcher.db

: select-account/site ( username url -- account site )
    insert-site site-id>> ;