Megatest

Artifact eaa57ff5caa3e614e17c36d7f8ab4d2f5f602e58:

• File ulex/telemetry/telemetry-test-server.scm — part of check-in [be8fe269fa] at 2019-12-16 04:17:56 on branch v1.70-defunct-try — Pulled in ulex (user: matt, size: 303) [annotate] [blame] [check-ins using] [more...]

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