Megatest: telemetry-test-server.scm at [49c01cca51]

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")