Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (13 sloc) 347 Bytes
;;
;; Hello World client
;; Connects REQ socket to tcp://localhost:5559
;; Sends "Hello" to server, expects "World" back
;;
(use zmq)
(define s (make-socket 'req))
(connect-socket s "tcp://localhost:5559")
(do ((i 0 (+ i 1)))
((>= i 10))
(send-message s "Hello")
(printf "Received reply ~a [~a]\n"
i (receive-message s)))