tried to generate call-graph

This commit is contained in:
Mustafa 2014-03-04 12:19:23 -08:00
parent eeeeef9a95
commit 6c9c0cfc49
2 changed files with 19 additions and 1 deletions

View file

@ -520,3 +520,21 @@
(lambda (p)
(or (verify-message p)
(verify-bundle p))))
#|
(define m1 (encode-osc (message "/a/b" (list 257))))
;; try to create a call graph
(require profile)
(require profile/render-graphviz)
(profile-thunk trace-encode
#:render render
#:use-errortrace? #t)
|#

View file

@ -3,7 +3,7 @@
;; from transport.scm ;;;;;;;
(require rnrs
"bytevector.rkt"
"bytevector.rkt"
"sosc.rkt"
"ip.rkt")