Handbook
Glossary
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
;