   [bb]
   (.readShort bb))
 
-(s/fdef flag-acked-others
+(s/fdef flag-acked-others!
         :args (s/cat :state ::specs/state)
         :ret ::specs/state)
-(defn flag-acked-others
+(defn flag-acked-others!
   "Lines 544-560"
   [{:keys [::specs/buf]
     :as state}]

      (log/warn "Child buffer overflow")
      state)))

(defn do-send-ack
  "Write ACK buffer to parent

Line 608"

            ;; Q: Isn't there?
            acked-blocks (filter #(= ack-id (::message-id %))
                                 blocks)
            state (-> (partial flag-acked state)
                      (reduce acked-blocks)
                      ;; That takes us down to line 544
                      (flag-acked-others! state)
                      (extract-message-from-parent state)
                      (prep-send-ack state msg-id))]
        (send-ack! state)
        state))))

(s/fdef try-processing-message
