trim-flat ( root-node -- root-node' )

Vocabulary

tools.profiler.sampling.private

Inputs

root-node

an object

Outputs

root-node'

an object

Definition

USING: accessors assocs kernel ;

IN: tools.profiler.sampling.private

: trim-flat ( root-node -- root-node' )
    dup [ redundant-flat-node? ] curry [ reject-values ] curry
    change-children ;