suzanne.soy/profile
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

print the *-node appropriately

Browse Source 
svn: r14808

original commit: bc22c8a824ee15f67072f225d8e708ee08dfbe7e
This commit is contained in:
Eli Barzilay 2009-05-14 10:34:09 +00:00
parent 0dc181a285
commit 8ad8b54bcc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profile/structs.ss
View File

@ -34,7 +34,9 @@
(define-struct node (id src thread-ids total self callers callees)
#:mutable
#:property prop:custom-write
(lambda (node o w?) (fprintf o "#<node:~s>" (or (node-id node) '???))))
(lambda (node o w?)
(fprintf o "#<node:~s>"
(or (node-id node) (if (node-src node) '??? 'ROOT)))))
;; An edge representing function calls between two nodes:
;; - total: the total time spent while the call was anywhere on the stack.