diff --git a/sosc/sosc.rkt b/sosc/sosc.rkt index 5efd182..0f600e4 100644 --- a/sosc/sosc.rkt +++ b/sosc/sosc.rkt @@ -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) +|# \ No newline at end of file diff --git a/sosc/transport.rkt b/sosc/transport.rkt index a6c9873..7f8d879 100644 --- a/sosc/transport.rkt +++ b/sosc/transport.rkt @@ -3,7 +3,7 @@ ;; from transport.scm ;;;;;;; (require rnrs - "bytevector.rkt" + "bytevector.rkt" "sosc.rkt" "ip.rkt")