(use zmq)

(define (startup #!key (publisher-endpoint "tcp://*:6868") (control-endpoint "tcp://*:6767"))
  (let* ((control    (make-poll-item (make-socket 'rep)))
         (publisher  (make-poll-item (make-socket 'pub)))
         (frontends  (list))
         (poll-items (list control publisher)))
    
    (bind-socket (poll-item-socket control)   control-endpoint)
    (bind-socket (poll-item-socket publisher) publisher-endpoint)


    (let loop ((ready (poll poll-items 1)))
	      (when (< 0 ready)
		(printf "Item ready ~a!~%" ready))
	      (loop (poll poll-items 1)))))


(startup)