tried to generate call-graph
This commit is contained in:
parent
eeeeef9a95
commit
6c9c0cfc49
2 changed files with 19 additions and 1 deletions
|
@ -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)
|
||||
|#
|
|
@ -3,7 +3,7 @@
|
|||
;; from transport.scm ;;;;;;;
|
||||
|
||||
(require rnrs
|
||||
"bytevector.rkt"
|
||||
"bytevector.rkt"
|
||||
"sosc.rkt"
|
||||
"ip.rkt")
|
||||
|
||||
|
|
Loading…
Reference in a new issue