From 8ad8b54bcc7aedbfaa28aeb86789d770e0b8855c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 14 May 2009 10:34:09 +0000
Subject: [PATCH] print the *-node appropriately

svn: r14808

original commit: bc22c8a824ee15f67072f225d8e708ee08dfbe7e
---
 collects/profile/structs.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/profile/structs.ss b/collects/profile/structs.ss
index 6512b1f..b8bea41 100644
--- a/collects/profile/structs.ss
+++ b/collects/profile/structs.ss
@@ -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.