                     ": Does it make sense to try to send any of our "
                     block-count
                     " unsent blocks?"))
-    (when (< 0 block-count)
+    (if (< 0 block-count)
       (if (ok-to-send-new? state)
         ;; XXX: if any Nagle-type processing is desired, do it here (--DJB)
         ;; Consolidating smaller blocks *would* be a good idea -- JRG


(s/fdef check-for-new-block-to-send
        :args (s/cat :state ::specs/state)
        :ret (s/nilable ::specs/state))
(defn check-for-new-block-to-send
  "Q: Is there a new block ready to send?


      ;; TODO: That instead.
      (log/debug (cl-format nil
                            (str
                             "~a (~a): Conditions wrong"
                             " for resending any of our ~d previously "
                             "sent un-ack'd blocks, based on"
                             "\nEarliest time: ~:d"
                             "\nnanoseconds per block: ~:d"
