trim-root ( root -- root' )

Vocabulary

tools.profiler.sampling.private

Inputs

root

an object

Outputs

root'

an object

Definition

USING: accessors assocs kernel sequences ;

IN: tools.profiler.sampling.private

: trim-root ( root -- root' )
    dup redundant-root-node?
    [ children>> values first trim-root ] when ;