http2.clj

(defn header-encoder% [client-channel]
  (let-cont%
   [header-encode-service (return% (cml/channel))
    _ (fork%
       (let-cont%
        [ten (label%)
         frame (sync% (cml/rx header-encode-service))
         _ (if (cml/event? frame)
             (let-cont%
              [eleven (label%)
               header-frame (sync% frame)]
              (if frame
                (let-cont%
                 [;; TODO: header encoding goes here
                  _ (log% "output header frame" header-frame)
                  _ (write-frame-header% client-channel header-frame)
                  _ (log% "header frame header written")
                  _ (write-until-full% client-channel (:payload header-frame))
                  _ (log% "header frame written")]
                 (goto% eleven))
                (goto% ten)))
             (let-cont%
              [_ (log% "output frame" frame)
               _ (write-frame-header% client-channel frame)
               _ (log% "frame header written")
               _ (write-until-full% client-channel (:payload frame))
               _ (log% "frame written")]
              (goto% ten)))]
        (return% nil)))]
   (return% header-encode-service)))