total-size ( object -- n )

Vocabulary

tools.memory

Inputs

object

an object

Outputs

n

an object

Definition

USING: hash-sets.identity kernel namespaces tools.memory.private
;

IN: tools.memory

: total-size ( object -- n )
    IHS{ } clone visited [ 0 swap total-size+ ] with-variable ;