<account> ( account-name email -- account )

Vocabulary

site-watcher.db

Inputs

account-name	an object
email	an object

Outputs

account

an object

Definition

USING: accessors kernel ;

IN: site-watcher.db

: <account> ( account-name email -- account )
    account new swap >>email swap >>account-name ;