From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Jan 2002 04:35:10 +0000 (+0000)
Subject: Don't ever list bindings for packages.
X-Git-Tag: 20090517-FFI~2297
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=644a598006267ffe2508608333bacb386810047c;p=mit-scheme.git

Don't ever list bindings for packages.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 04ecdeb06..5db124a33 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debug.scm,v 1.61 2002/01/07 04:30:28 cph Exp $
+;;; $Id: debug.scm,v 1.62 2002/01/07 04:35:10 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-2002 Massachusetts Institute of Technology
 ;;;
@@ -1827,14 +1827,21 @@ once it has been renamed, it will not be deleted automatically.")
 			  ind
 			  port))
 		       names))))
-      (cond ((zero? n-bindings)
+      (cond ((environment->package environment)
+	     (write-string (string-append ind "    has ") port)
+	     (write n-bindings port)
+	     (write-string
+	      " bindings"
+	      port)
+	     (debugger-newline port))
+	    ((zero? n-bindings)
 	     #|(write-string (string-append ind "    has no bindings") port)
 	     (debugger-newline port)|#)
 	    ((> n-bindings (ref-variable environment-package-limit))
 	     (write-string (string-append ind "    has ") port)
 	     (write n-bindings port)
 	     (write-string
-	      " bindings (see editor variable environment-package-limit) "
+	      " bindings (see editor variable environment-package-limit)"
 	      port)
 	     (debugger-newline port))
 	    (else