             ::specs/un-ackd-blocks]
      :as outgoing} ::specs/outgoing
     :keys [::specs/message-loop-name]
-    :as state}]
+    :as state}
+   updated-block]
   (assert (= ::specs/un-sent-blocks
              (::specs/next-block-queue outgoing)))
   (let [block-to-move (peek un-sent-blocks)]

              (str message-loop-name
                   ": Missing ::transmissions under "
                   next-block-queue)))
    (log/debug (str message-loop-name
                    ": Next message should come from "
                    (count q)
                    " blocks in\n"
                    next-block-queue
                    "\ninside\n"
                    (::specs/outgoing state)))
    (let [next-message-id (let [n' (inc current-message-id)]
                            ;; Stupid unsigned math
                            ;; Actually, this seems even more problematic

                      ": Hasn't been long enough to justify"
                      " resending any of our "
                      (count un-ackd-blocks)
                      " previously sent un-ack'd blocks, based on"
                      "\nEarliest time: " earliest-time
                      "\nnanoseconds per block: " n-sec-per-block
                      "\nrtt-timeout: " rtt-timeout
                      "\nrecent: " recent))
      nil)))

(s/fdef check-for-new-block-to-send
