From d538141610661880657a2266c6a79a133e6a615c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 30 Mar 2009 05:24:07 +0000 Subject: [PATCH] type svn: r14344 original commit: 1fe2cee5c6fd265b5278cd1746cb1f5e0dc7663f --- collects/tests/profile/main.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/profile/main.ss b/collects/tests/profile/main.ss index 4d577fc..d7ce5e3 100644 --- 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)