From 8b52e7999bd601112e6e73594de53ebbd1af3790 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Dec 1989 23:05:44 +0000
Subject: [PATCH] In `trace-display', no-argument case was putting close
 bracket at beginning of empty line, when it should have been at the end of
 the previous line.

---
 v7/src/runtime/advice.scm | 42 ++++++++++++++++++++-------------------
 1 file changed, 22 insertions(+), 20 deletions(-)

diff --git a/v7/src/runtime/advice.scm b/v7/src/runtime/advice.scm
index 573d59e41..25ca1fe9e 100644
--- a/v7/src/runtime/advice.scm
+++ b/v7/src/runtime/advice.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/advice.scm,v 14.4 1989/10/26 06:45:49 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/advice.scm,v 14.5 1989/12/14 23:05:44 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -341,25 +341,27 @@ MIT in each case. |#
 	  (newline)
 	  (write-string "      <== ")))
     (write-truncated procedure (- width 11))
-    (newline)
-    (let ((write-args
-	   (lambda (arguments)
-	     (let loop ((prefix "    Args: ") (arguments arguments))
-	       (write-string prefix)
-	       (write-truncated (car arguments) (- width 11))
-	       (if (not (null? (cdr arguments)))
-		   (begin
-		     (newline)
-		     (loop "          " (cdr arguments))))))))
-      (cond ((null? arguments)
-	     (write-string "]"))
-	    ((<= (length arguments) 10)
-	     (write-args arguments)
-	     (write-string "]"))
-	    (else
-	     (write-args (list-head arguments 10))
-	     (newline)
-	     (write-string "          ...]"))))))
+    (if (null? arguments)
+	(write-string "]")
+	(begin
+	  (newline)
+	  (let ((write-args
+		 (lambda (arguments)
+		   (let loop ((prefix "    Args: ") (arguments arguments))
+		     (write-string prefix)
+		     (write-truncated (car arguments) (- width 11))
+		     (if (not (null? (cdr arguments)))
+			 (begin
+			   (newline)
+			   (loop "          " (cdr arguments))))))))
+	    (if (<= (length arguments) 10)
+		(begin
+		  (write-args arguments)
+		  (write-string "]"))
+		(begin
+		  (write-args (list-head arguments 10))
+		  (newline)
+		  (write-string "          ...]"))))))))
 
 (define primitive-trace-entry)
 (define primitive-trace-exit)
-- 
2.25.1