steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.profiler.sampling: use formatting instead of math.parser.private.

db4
John Benediktsson 2014-08-05 11:41:22 -07:00
parent 3cfac7916a
commit 6f3d6ad560
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/tools/profiler/sampling/sampling.factor
View File

@ -1,10 +1,9 @@
! (c)2011 Joe Groff bsd license
USING: accessors assocs combinators
combinators.short-circuit continuations fry generalizations
hashtables.identity io kernel kernel.private layouts locals
math math.parser math.parser.private math.statistics
math.vectors memory namespaces prettyprint sequences
sequences.generalizations sets sorting ;
USING: accessors assocs combinators combinators.short-circuit
continuations formatting fry generalizations hashtables.identity
io kernel kernel.private layouts locals math math.parser
math.statistics math.vectors memory namespaces prettyprint
sequences sequences.generalizations sets sorting ;
FROM: sequences => change-nth ;
FROM: assocs => change-at ;
IN: tools.profiler.sampling
@ -201,10 +200,10 @@ PRIVATE>
>alist [ second total-time>> ] inv-sort-with ;
: duration. ( duration -- )
1000 * >float "%9.1f" format-float write ;
1000 * "%9.1f" printf ;
: percentage. ( num denom -- )
[ 100 * ] dip /f "%6.2f" format-float write ;
[ 100 * ] dip /f "%6.2f" printf ;
DEFER: (profile.)