change-tracking-tuple-class

Vocabulary

classes.tuple.change-tracking

Definition

USING: classes classes.tuple ;

IN: classes.tuple.change-tracking

PREDICATE: change-tracking-tuple-class < tuple-class
    change-tracking-tuple subclass-of? ;

Methods

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

M: change-tracking-tuple-class writer-quot
    [
        M\ change-tracking-tuple-class writer-quot
        (call-next-method)
    ] [
        name>> "changed?" =
        [ [ [ t >>changed? drop ] bi ] curry ] unless
    ] bi ;