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

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

Vocabulary
slots

Inputs

class an object

slot-spec an object

Outputs

quot an object

Definition

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 ;