sum-phase-times ( events phase -- n )

Vocabulary

tools.memory

Inputs

events	an object
phase	an object

Outputs

n

an object

Definition

USING: accessors kernel sequences tools.memory.private ;

IN: tools.memory

: sum-phase-times ( events phase -- n )
    [ [ times>> ] ] dip [ swap nth ] curry compose map-sum
    nanos>string ; inline