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)
|
(lambda (p)
|
||||||
(or (verify-message p)
|
(or (verify-message p)
|
||||||
(verify-bundle 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 ;;;;;;;
|
;; from transport.scm ;;;;;;;
|
||||||
|
|
||||||
(require rnrs
|
(require rnrs
|
||||||
"bytevector.rkt"
|
"bytevector.rkt"
|
||||||
"sosc.rkt"
|
"sosc.rkt"
|
||||||
"ip.rkt")
|
"ip.rkt")
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue