Use upper case to highlight procedure and special form names in

environment summary.

diff --git a/v7/src/runtime/dbgutl.scm b/v7/src/runtime/dbgutl.scm
index 9fcb0ea5025143459778e8ba278b74230304dcd8..1e83591ec5cfd6421ebdc3cac29d7d1b48ffb983 100644 (file)
--- a/v7/src/runtime/dbgutl.scm
+++ b/v7/src/runtime/dbgutl.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.11 1990/09/11 21:17:02 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.12 1991/06/26 18:28:20 cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -43,10 +43,10 @@ MIT in each case. |#
        (let ((rename (special-form-procedure-name? name)))
          (if rename
              (begin (write-string "a ")
-                    (write-string rename)
+                    (write-string (string-upcase rename))
                     (write-string " special form"))
              (begin (write-string "the procedure: ")
-                    (write-dbg-name name))))
+                    (write-dbg-upcase-name name))))
        (write-string "an unknown procedure"))))
 
 (define (show-environment-procedure environment)
@@ -58,6 +58,13 @@ MIT in each case. |#
 (define (write-dbg-name name)
   (if (string? name) (write-string name) (write name)))
 
+(define (write-dbg-upcase-name name)
+  (let ((string
+        (if (string? name)
+            name
+            (with-output-to-string (lambda () (write name))))))
+    (write-string (string-upcase string))))
+
 (define (debug/read-eval-print-1 environment)
   (let ((value
         (debug/eval (prompt-for-expression "Evaluate expression")

diff --git a/v8/src/runtime/dbgutl.scm b/v8/src/runtime/dbgutl.scm
index 132e70cf1fd33b2476cdcfe2ceb0c27d42abb703..41c0e67a863f07d7b6fa7f60ac25ff7087282679 100644 (file)
--- a/v8/src/runtime/dbgutl.scm
+++ b/v8/src/runtime/dbgutl.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.11 1990/09/11 21:17:02 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.12 1991/06/26 18:28:20 cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -43,10 +43,10 @@ MIT in each case. |#
        (let ((rename (special-form-procedure-name? name)))
          (if rename
              (begin (write-string "a ")
-                    (write-string rename)
+                    (write-string (string-upcase rename))
                     (write-string " special form"))
              (begin (write-string "the procedure: ")
-                    (write-dbg-name name))))
+                    (write-dbg-upcase-name name))))
        (write-string "an unknown procedure"))))
 
 (define (show-environment-procedure environment)
@@ -58,6 +58,13 @@ MIT in each case. |#
 (define (write-dbg-name name)
   (if (string? name) (write-string name) (write name)))
 
+(define (write-dbg-upcase-name name)
+  (let ((string
+        (if (string? name)
+            name
+            (with-output-to-string (lambda () (write name))))))
+    (write-string (string-upcase string))))
+
 (define (debug/read-eval-print-1 environment)
   (let ((value
         (debug/eval (prompt-for-expression "Evaluate expression")