                       current-form)
                     form))))
 
-

                                                                                          (symbol "current-form") ~current-form
                                                                                          ;(symbol "progress") ~progress
                                                                                          (symbol "step") ~step}))]
                            (println "Form:" form
                                     "\ncurrent-form:" current-form
                                     "\nprogress:" (formize-progress @progress)
                                     "\nstep:" step)

    (clojure.main/repl-caught exc)))

(defmacro debug-repl
  "Starts a REPL with the local bindings available.
   * () - quit the repl
   * (quit-dr some-value) - quit the repl returning `some-value`; Useful when embedding DR
   * (in-debug-ns) - move to the ns where the repl was started
   * debug-meta - metadata captured at the repl call site"
  ([]
   `(debug-repl nil ~(meta &form)))
  ([retform]
