File ulex/telemetry/telemetry-test-server.scm artifact eaa57ff5ca part of check-in 49c01cca51
(load "telemetry.scm") (import telemetry) (print "before") (use mailbox) (use mailbox-threads) (use srfi-18) (set! handler-seq 0) (define (handler msg) (set! handler-seq (add1 handler-seq)) (print "=============") (print handler-seq msg)) (telemetry-server 12346 handler) (print "after")