type

svn: r14344 original commit: 1fe2cee5c6fd265b5278cd1746cb1f5e0dc7663f
2009-03-30 05:24:07 +00:00 · 2009-03-30 05:24:07 +00:00 · d538141610
commit d538141610
parent 70c70bc7bc
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/profile/main.ss
+++ b/collects/tests/profile/main.ss
@ -20,7 +20,7 @@
    (for/list ([edge (get node)])
      `(,(node-id* (edge-caller edge)) -> ,(node-id* (edge-callee edge))
        time=  ,(get-time edge)
-        total= ,(edge-time edge))))
+        total= ,(edge-total edge))))
  (define (node->sexpr node)
    `(,(node-id* node)
          total=   ,(node-total node)