 
 
 (defn read-form
+  "Read the `:form` in the given statement, if present. Otherwise returns the
+  statement unchanged."
   [statement]
   (if (:form statement)
     (update statement :form #(binding [*default-data-reader-fn* tagged-literal]



(defn split-body
  [statement]
  (let [body (:body statement)]
    (if (str/starts-with? (first body) "=> ")

                             expected
                             post)]
          ;(puget/cprint [form result err])
          ; TODO: assertions on result vs expected
          ; TODO: assert that % of lines different is under some threshold?
          (recur (if-not err
                   (take 3 (cons result history))
                   history)
