From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Jun 1991 18:28:20 +0000 (+0000)
Subject: Use upper case to highlight procedure and special form names in
X-Git-Tag: 20090517-FFI~10496
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=77505b971c5f5bc8065b11a3c4b8e8847175e99c;p=mit-scheme.git

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 9fcb0ea50..1e83591ec 100644
--- 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 132e70cf1..41c0e67a8 100644
--- 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")