From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 7 Jun 2000 04:56:23 +0000 (+0000)
Subject: Fix another place still using the old newline convention.
X-Git-Tag: 20090517-FFI~3596
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5a744c1896a79cf7830c159a21ea691bd0c28e2a;p=mit-scheme.git

Fix another place still using the old newline convention.
---

diff --git a/v7/src/runtime/advice.scm b/v7/src/runtime/advice.scm
index e46f42f19..7b559dd34 100644
--- a/v7/src/runtime/advice.scm
+++ b/v7/src/runtime/advice.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: advice.scm,v 14.16 1999/07/06 15:08:04 cph Exp $
+$Id: advice.scm,v 14.17 2000/06/07 04:56:23 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
@@ -354,7 +354,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   result)
 
 (define (trace-display port procedure arguments #!optional result)
-  (newline port)
+  (fresh-line port)
   (let ((width (- (max 40 (output-port/x-size port)) 1))
 	(write-truncated
 	 (lambda (object width)
@@ -390,7 +390,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 		(begin
 		  (write-args (list-head arguments 10))
 		  (newline port)
-		  (write-string "          ...]" port))))))))
+		  (write-string "          ...]" port))))))
+    (newline port)))
 
 (define (break-entry-advice procedure arguments environment)
   (fluid-let ((the-procedure procedure)