               (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

     :as outgoing} ::specs/outgoing
    :as state}]
  ;; Really just for timing info
  (log/debug (str message-loop-name ": top of pre-calculate ofter-send"))
  (assert next-block-queue
          (str message-loop-name
               ": No next-block-queue to tell us what to send\nAvailable:\n"

                      ": 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
