     opts))
 
 (defn- opts->vertx-options
-  [{:keys [threads on-error]}]
+  [{:keys [threads worker-threads on-error]}]
   (let [opts (VertxOptions.)]
     (when threads (.setEventLoopPoolSize opts (int threads)))
+    (when worker-threads (.setWorkerPoolSize opts (int worker-threads)))
     (when on-error (.exceptionHandler (vu/fn->handler on-error)))
     opts))
 

                                      (p/resolve! d v)))))))
     d)))

(s/def :vertx.core$verticle/on-start fn?)
(s/def :vertx.core$verticle/on-stop fn?)
(s/def :vertx.core$verticle/on-error fn?)

  [topic options]
  (s/assert string? topic)
  (s/assert ::actor-options options)
  ^{::verticle true ::options options ::topic topic}
  (reify
    Supplier
    (get [_] (build-actor topic options))))

