- node {
- [ depth>> number>string 4 CHAR: \s pad-head write bl ]
- [ total-time>> duration. bl ]
- [ [ gc-time>> ] [ total-time>> ] bi percentage. bl ]
- [ [ jit-time>> ] [ total-time>> ] bi percentage. bl ]
- [ [ foreign-time>> ] [ total-time>> ] bi percentage. bl ]
- [ [ foreign-thread-time>> ] [ total-time>> ] bi percentage. bl ]
- } cleave ;
-
-:: (profile-node.) ( word node depth -- )
+ [
+ node {
+ [ depth>> number>string 4 CHAR: \s pad-head write bl ]
+ [ total-time>> duration. bl ]
+ [ [ gc-time>> ] [ total-time>> ] bi percentage. bl ]
+ [ [ jit-time>> ] [ total-time>> ] bi percentage. bl ]
+ [ [ foreign-time>> ] [ total-time>> ] bi percentage. bl ]
+ [ [ foreign-thread-time>> ] [ total-time>> ] bi percentage. bl ]
+ } cleave
+ ] with-string-writer write ;
+
+:: profile-node. ( word node depth -- )