Adjust frame display to look better on regular console.
authorChris Hanson <org/chris-hanson/cph>
Sat, 31 Dec 1988 06:38:40 +0000 (06:38 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sat, 31 Dec 1988 06:38:40 +0000 (06:38 +0000)
v7/src/runtime/dbgutl.scm
v8/src/runtime/dbgutl.scm

index c52da1fbcd28f2c7cb22567e80ab0888f38b85fd..7b382f521125116d0968966e4fbcb52c80ae1818 100644 (file)
@@ -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)))
 \f
 (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)))
index e5dd43ecc8255c211093acd07ef571ef89add467..fd76d207501826090aa15fccdf98a2c745511a09 100644 (file)
@@ -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)))
 \f
 (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)))