changed?<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: changed?<< ( value object -- )

Methods

USING: accessors classes.tuple.change-tracking kernel slots
slots.private ;

M: change-tracking-tuple changed?<<
    [ dup boolean? [ \ boolean bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors site-watcher.db slots.private ;

M: reporting-site changed?<< 6 set-slot ; inline


USING: accessors furnace.scopes slots.private ;

M: scope changed?<< 5 set-slot ; inline


USING: accessors site-watcher.db slots.private ;

M: site changed?<< 5 set-slot ; inline


USING: accessors furnace.auth.providers slots.private ;

M: user changed?<< 11 set-slot ; inline