 
 
 (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 try-eval
  [history form expected post]
  (let [err-class (some->> (first post)
                           (re-seq #"^; (\S*Exception) ")



(defn find-code-blocks
  "Pattern match the text to find fenced code blocks. Returns a sequence of
  match vectors containing `[match directive? code]`. The directive may be a
  word appearing inside an HTML comment immediately preceding the block."
  [text]
  (re-seq #"(?:<!-- (\S+) -->\n)?```clojure\n((?:[^`]*\n)*[^`]+)```" text))

