From 5e0f34ce8b5ad98259539d159abfd9bb91864b88 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 25 Mar 2000 03:24:44 +0000
Subject: [PATCH] Another change for the new newline convention.

---
 v7/src/runtime/gcnote.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/gcnote.scm b/v7/src/runtime/gcnote.scm
index 434b99b99..1b8d0b95c 100644
--- a/v7/src/runtime/gcnote.scm
+++ b/v7/src/runtime/gcnote.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: gcnote.scm,v 14.12 1999/01/02 06:11:34 cph Exp $
+$Id: gcnote.scm,v 14.13 2000/03/25 03:24:44 cph Exp $
 
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
+Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -90,8 +90,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	    (gc-statistics)))
 
 (define (print-statistic statistic port)
-  (newline port)
-  (write-string (gc-statistic->string statistic) port))
+  (fresh-line port)
+  (write-string (gc-statistic->string statistic) port)
+  (newline port))
 
 (define (gc-statistic->string statistic)
   (let* ((ticks/second 1000)
-- 
2.25.1