error-handling tweak

* module/system/repl/error-handling.scm (call-with-error-handling):
  Remove extra newline.

diff --git a/module/system/repl/error-handling.scm b/module/system/repl/error-handling.scm
index 53af62e..6a2c0bc 100644 (file)
--- a/module/system/repl/error-handling.scm
+++ b/module/system/repl/error-handling.scm
@@ -97,7 +97,6 @@
                                   subr msg args rest))
                   (else
                    (format #t "Throw to key `~a' with args `~s'." key args)))
-                (newline)
                 (format #t "Entering a new prompt.  ")
                 (format #t "Type `,bt' for a backtrace or `,q' to continue.\n")
                 ((@ (system repl repl) start-repl) #:debug debug))))))