type

svn: r14344
2009-03-30 05:24:07 +00:00 · 2009-03-30 05:24:07 +00:00 · 1fe2cee5c6
commit 1fe2cee5c6
parent e2f50949be
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)