unclip-callstack ( sample -- sample' callstack-top )


Vocabulary
tools.profiler.sampling

Inputs
samplean object


Outputs
sample'an object
callstack-topan object


Definition
USING: kernel sequences ;

IN: tools.profiler.sampling

: unclip-callstack ( sample -- sample' callstack-top )
clone 6 over [ unclip-last swap ] change-nth ;