From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Feb 1992 15:03:05 +0000 (+0000)
Subject: WRITE-DBG-UPCASE-NAME: Don't upcase things that aren't symbols or
X-Git-Tag: 20090517-FFI~9846
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a303f1c34bb0ef9d1d3f180e528085a385b37369;p=mit-scheme.git

WRITE-DBG-UPCASE-NAME: Don't upcase things that aren't symbols or
strings.
---

diff --git a/v7/src/runtime/dbgutl.scm b/v7/src/runtime/dbgutl.scm
index 0b5b64cf1..40d106784 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.14 1991/11/26 07:05:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.15 1992/02/08 15:03:05 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -63,11 +63,12 @@ MIT in each case. |#
   (if (string? name) (write-string name port) (write name port)))
 
 (define (write-dbg-upcase-name name port)
-  (let ((string
-	 (if (string? name)
-	     name
-	     (with-output-to-string (lambda () (write name))))))
-    (write-string (string-upcase string) port)))
+  (cond ((string? name)
+	 (write-string (string-upcase name)))
+	((interned-symbol? name)
+	 (write-string (string-upcase (symbol->string name)) port))
+	(else
+	 (write name port))))
 
 (define (debug/read-eval-print-1 environment port)
   (let ((value
diff --git a/v8/src/runtime/dbgutl.scm b/v8/src/runtime/dbgutl.scm
index 3c377831c..95247be37 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.14 1991/11/26 07:05:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.15 1992/02/08 15:03:05 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -63,11 +63,12 @@ MIT in each case. |#
   (if (string? name) (write-string name port) (write name port)))
 
 (define (write-dbg-upcase-name name port)
-  (let ((string
-	 (if (string? name)
-	     name
-	     (with-output-to-string (lambda () (write name))))))
-    (write-string (string-upcase string) port)))
+  (cond ((string? name)
+	 (write-string (string-upcase name)))
+	((interned-symbol? name)
+	 (write-string (string-upcase (symbol->string name)) port))
+	(else
+	 (write name port))))
 
 (define (debug/read-eval-print-1 environment port)
   (let ((value