nothing to see here

simpler.clj

;; ============================================================
;; embarrassingly, the following totally works

(def result (atom []))

(defn readr [prompt exit-code]
  (let [input (clojure.main/repl-read prompt exit-code)]
    (if (= input :tl)
      exit-code
      input)))

(let [input (clojure.string/join "\n"
              ["(swap! result conj (+ 1 1))"
               ":tl"])]
  (binding [*in* (LineNumberingTextReader.
                   (SynchronizedReader.
                     (StringReader. input)))]
    (clojure.main/repl
      :prompt #(print "debug=> ")
      :read readr
      :eval eval)))