writer-quot ( class slot-spec -- quot )

Vocabulary

slots

Inputs

class	an object
slot-spec	an object

Outputs

quot

an object

Definition

IN: slots

GENERIC#: writer-quot 1 ( class slot-spec -- quot )

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 ;


USING: accessors kernel sequences slots slots.private ;

M: object writer-quot
    nip [
        class>> instance-check-quot dup empty?
        [ [ dip ] curry ] unless
    ] [ offset>> [ set-slot ] curry ] bi append ;


USING: classes.struct classes.struct.private kernel slots ;

M: struct-class writer-quot nip [ write-struct-slot ] curry ;