From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 6 Aug 1995 15:53:07 +0000 (+0000)
Subject: Moved call of NEWLINE in PP so that (1) there is only one call to
X-Git-Tag: 20090517-FFI~6065
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6357af5f7c8685e041d6a044d0d8bb413f38f3ad;p=mit-scheme.git

Moved call of NEWLINE in PP so that (1) there is only one call to
NEWLINE, and (2) the newline is output after any warnings that may
have been issued during unsyntaxing.
---

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index e144de8b7..2c8eba137 100644
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pp.scm,v 14.35 1995/05/13 19:01:38 adams Exp $
+$Id: pp.scm,v 14.36 1995/08/06 15:53:07 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -76,15 +76,13 @@ MIT in each case. |#
 (define (pp object #!optional port . rest)
   (let ((port (if (default-object? port) (current-output-port) port)))
     (let ((pretty-print
-	   (lambda (object) (apply pretty-print object port rest))))
-      (newline port)
+	   (lambda (object)
+	     (newline port)
+	     (apply pretty-print object port rest))))
       (cond ((pp-description object)
 	     => (lambda (description)
 		  (pretty-print object)
-		  (for-each (lambda (element)
-			      (newline port)
-			      (pretty-print element))
-			    description)))
+		  (for-each pretty-print description)))
 	    ((arity-dispatched-procedure? object)
 	     (pretty-print (unsyntax-entity object)))
 	    ((and (procedure? object) (procedure-lambda object))