From 653b42e5a2350434edd0f5b2d4d89a8bc6637e3e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 31 Dec 1988 06:38:40 +0000 Subject: [PATCH] Adjust frame display to look better on regular console. --- v7/src/runtime/dbgutl.scm | 6 +++--- v8/src/runtime/dbgutl.scm | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) 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))) -- 2.25.1