From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 5 Dec 2018 05:58:07 +0000 (+0000)
Subject: Print newline in debugging-printer primitive.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~49
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=21db1f437a60c2a903a4102f16bd8f544b88eae9;p=mit-scheme.git

Print newline in debugging-printer primitive.
---

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index c78c7d8b2..aeb462ca2 100644
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -343,6 +343,7 @@ DEFINE_PRIMITIVE ("DEBUGGING-PRINTER", Prim_debugging_printer, 1, 1,
   PRIMITIVE_HEADER (1);
 
   print_object (ERROR_OUTPUT, ARG_REF (1));
+  outf_error ("\n");
   return (SHARP_F);
 }