From 6357af5f7c8685e041d6a044d0d8bb413f38f3ad Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sun, 6 Aug 1995 15:53:07 +0000 Subject: [PATCH] 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. --- v7/src/runtime/pp.scm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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)) -- 2.25.1