From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 31 Dec 1988 06:38:40 +0000 (+0000)
Subject: Adjust frame display to look better on regular console.
X-Git-Tag: 20090517-FFI~12306
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=653b42e5a2350434edd0f5b2d4d89a8bc6637e3e;p=mit-scheme.git

Adjust frame display to look better on regular console.
---

diff --git a/v7/src/runtime/dbgutl.scm b/v7/src/runtime/dbgutl.scm
index c52da1fbc..7b382f521 100644
--- a/v7/src/runtime/dbgutl.scm
+++ b/v7/src/runtime/dbgutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.5 1988/12/30 23:29:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.6 1988/12/31 06:38:40 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -72,6 +72,7 @@ MIT in each case. |#
     (cdr x)))
 
 (define (show-frame environment depth brief?)
+  (newline)
   (write-string "Environment ")
   (let ((show-bindings?
 	 (let ((package (environment->package environment)))
@@ -91,8 +92,7 @@ MIT in each case. |#
     (if show-bindings?
 	(begin
 	  (newline)
-	  (show-environment-bindings environment brief?))))
-  (newline))
+	  (show-environment-bindings environment brief?)))))
 
 (define (show-environment-bindings environment brief?)
   (let ((names (environment-bound-names environment)))
diff --git a/v8/src/runtime/dbgutl.scm b/v8/src/runtime/dbgutl.scm
index e5dd43ecc..fd76d2075 100644
--- a/v8/src/runtime/dbgutl.scm
+++ b/v8/src/runtime/dbgutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.5 1988/12/30 23:29:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.6 1988/12/31 06:38:40 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -72,6 +72,7 @@ MIT in each case. |#
     (cdr x)))
 
 (define (show-frame environment depth brief?)
+  (newline)
   (write-string "Environment ")
   (let ((show-bindings?
 	 (let ((package (environment->package environment)))
@@ -91,8 +92,7 @@ MIT in each case. |#
     (if show-bindings?
 	(begin
 	  (newline)
-	  (show-environment-bindings environment brief?))))
-  (newline))
+	  (show-environment-bindings environment brief?)))))
 
 (define (show-environment-bindings environment brief?)
   (let ((names (environment-bound-names environment)))