Handbook
Glossary
total-size+ ( m object -- n )
Vocabulary
tools
.
memory
.
private
Inputs
m
an
object
object
an
object
Outputs
n
an
object
Definition
USING:
accessors
classes
classes.tuple
kernel
math
memory
namespaces
sequences
sets
slots.private
;
IN:
tools.memory.private
:
total-size+
( m object -- n )
dup
visited
get
?adjoin
[
[
size
+
]
[
dup
class-of
all-slots
[
offset>>
slot
total-size+
]
with
each
]
bi
]
[
drop
]
if
;