From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 25 Mar 2000 03:24:44 +0000 (+0000)
Subject: Another change for the new newline convention.
X-Git-Tag: 20090517-FFI~4156
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5e0f34ce8b5ad98259539d159abfd9bb91864b88;p=mit-scheme.git

Another change for the new newline convention.
---

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)