Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (8 sloc) 226 Bytes
(use zmq)
(define sub (make-socket 'sub))
(socket-option-set! sub 'subscribe "B")
(connect-socket sub "tcp://localhost:5563")
(let loop ()
(printf "[~a] " (receive-message sub))
(print (receive-message sub))
(loop))