set-notify-site-watchers ( site new-up? -- site )

Vocabulary

site-watcher.db

Inputs

site	an object
new-up?	an object

Outputs

site

an object

Definition

USING: accessors kernel ;

IN: site-watcher.db

: set-notify-site-watchers ( site new-up? -- site )
    [ over up?>> = [ t >>changed? ] unless ] keep >>up? ;