Channel composition; it's fine, but I'm already missing function composition

grr.clj

(defn map-into
  "Forwards `(f (<! recv))` to `send`; returns `send` for convenience."
  [send f recv]
  (go (loop []
        (let [val (<! recv)]
          (when-not (nil? val)
            (>! send (f val))
            (recur)))))
  send)

(defn json-deserialization-chan
  [send recv]
  (map-into send #(json/parse-string % true) recv))

(defn json-serialization-chan
  [send recv]
  (map-into send #(json/generate-string %) recv))