From 5df616980225f031c49c220dbbf706e8c939ed12 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Feb 1999 06:12:57 +0000
Subject: [PATCH] Fix fencepost error when printing bindings.  Show complete
 environment chain; previously omitted global environment.  Eliminate
 gratuitous use of EVAL.

---
 v7/src/edwin/debug.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index d21493da2..21f13adb5 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debug.scm,v 1.45 1999/02/03 06:10:02 cph Exp $
+;;; $Id: debug.scm,v 1.46 1999/02/03 06:12:57 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -1635,7 +1635,6 @@ once it has been renamed, it will not be deleted automatically.")
 	   (for-each (lambda (name)
 		       (myprint-binding name
 					(environment-lookup environment name)
-					environment
 					port))
 	     names))))
     (cond ((null? names)
@@ -1671,7 +1670,7 @@ once it has been renamed, it will not be deleted automatically.")
    port))
 
 ;;;This does some stuff who's end product is to pp the bindings
-(define (myprint-binding name value environment port)
+(define (myprint-binding name value port)
   (let ((x-size (output-port/x-size port)))
     (debugger-newline port)
     (let ((name1
-- 
2.25.1