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)
|
||||||
|
|#
|
Loading…
Reference in a new issue