sync-vector.rkt

(define (sync/vector evts-v)
  (let ([sync-vec (build-vector (vector-length evts-v)
				(lambda (n)
				  (wrap-evt
				   (vector-ref evts-v n)
				   (lambda (r) (cons n r)))))])
    (let loop ()
      (let ([remaining-evts (filter evt? (vector->list sync-vec))])
	(unless (empty? remaining-evts)
	  (let ([res (apply sync remaining-evts)])
	    (vector-set! sync-vec (car res) (cdr res)))
	  (loop))))
    sync-vec))