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

            (if-let [new-form# (.nextElement ^java.util.Enumeration quit-dr-exception)]
              (eval-fn# new-form#)
              (eval-fn# ~retform))
            (throw e#))))))
  )

(defmacro assert-repl [assertion-form]
  `(when *assert*

                      current-form)
                    form))))

