       (log/warn "Child buffer overflow")
       state)))
 
-(defn do-send-ack
+(defn send-ack!
   "Write ACK buffer to parent
 
 Line 608"

(defn parent->
  "Receive a ByteBuf from parent

;;;  411-435: try receiving messages: (DJB)
  "
  [{:keys [::specs/->child-buffer]
    :as state} buf]

;;;                  Those are really the length at position 38 and initial
;;;                  offset at position 40, thanks to starting the send
;;;                  with length/16 at offset 7.
;;;        589-593: increment the receivebytes count
;;;        595: never acknowledge a pure acknowledgment (DJB)
;;;             This short-circuits if something extracts to 0
