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

type

Browse Source 
svn: r14344

original commit: 1fe2cee5c6fd265b5278cd1746cb1f5e0dc7663f
This commit is contained in:
Eli Barzilay 2009-03-30 05:24:07 +00:00
parent 70c70bc7bc
commit d538141610
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/profile/main.ss
View File

@ -20,7 +20,7 @@
(for/list ([edge (get node)]) (for/list ([edge (get node)])
`(,(node-id* (edge-caller edge)) -> ,(node-id* (edge-callee edge)) `(,(node-id* (edge-caller edge)) -> ,(node-id* (edge-callee edge))
time= ,(get-time edge) time= ,(get-time edge)
total= ,(edge-time edge)))) total= ,(edge-total edge))))
(define (node->sexpr node) (define (node->sexpr node)
`(,(node-id* node) `(,(node-id* node)
total= ,(node-total node) total= ,(node-total node)