redundant-root-node? ( assoc -- ? )

Vocabulary

tools.profiler.sampling.private

Inputs

assoc

an object

Outputs

?

an object

Definition

USING: accessors assocs combinators.short-circuit kernel
sequences ;

IN: tools.profiler.sampling.private

: redundant-root-node? ( assoc -- ? )
    {
        [ children>> assoc-size 1 = ]
        [ children>> values first children>> ]
        [
            [ total-time>> ]
            [ children>> values first total-time>> ] bi =
        ]
    } 1&& ;