Eliminate use of WRITE on symbols when output isn't intended for READ.

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index bdbf12214cf3baa7923099085b6e2f99b5d745b8..a65209b65cacd7c5263042c700bc6a74d3cfe4a4 100644 (file)
--- a/v7/src/edwin/hlpcom.scm
+++ b/v7/src/edwin/hlpcom.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: hlpcom.scm,v 1.126 2003/02/14 18:28:12 cph Exp $
+$Id: hlpcom.scm,v 1.127 2003/07/31 02:33:01 cph Exp $
 
 Copyright 1986,1989,1990,1991,1993,1998 Massachusetts Institute of Technology
 Copyright 2000,2002,2003 Massachusetts Institute of Technology
@@ -251,7 +251,7 @@ If you want VALUE to be a string, you must surround it with doublequotes."
 
 (define (mode-apropos regexp)
   (for-each (lambda (mode)
-             (write (mode-name mode))
+             (write-string (symbol-name (mode-name mode)))
              (newline)
              (print-short-description "Mode" (mode-description mode)))
            (string-table-apropos editor-modes regexp)))

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index ae9565fb02662bfb1066d9944636a34df45d6587..ba80d949edf18636a7a1c11f99c070a47aa6efce 100644 (file)
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-imap.scm,v 1.198 2003/02/14 18:28:14 cph Exp $
+$Id: imail-imap.scm,v 1.199 2003/07/31 02:33:46 cph Exp $
 
 Copyright 1999,2000,2001,2003 Massachusetts Institute of Technology
 
@@ -2151,7 +2151,7 @@ USA.
          (flush-output imap-trace-port)))
     (imap-transcript-write-string tag port)
     (imap-transcript-write-char #\space port)
-    (imap-transcript-write command port)
+    (imap-transcript-write-string (symbol-name command) port)
     (for-each (lambda (argument)
                (if argument
                    (begin
@@ -2166,9 +2166,10 @@ USA.
 (define (imap:send-command-argument connection tag argument)
   (let ((port (imap-connection-port connection)))
     (let loop ((argument argument))
-      (cond ((or (symbol? argument)
-                (exact-nonnegative-integer? argument))
+      (cond ((exact-nonnegative-integer? argument)
             (imap-transcript-write argument port))
+           ((symbol? argument)
+            (imap-transcript-write-string (symbol-name argument) port))
            ((and (pair? argument)
                  (eq? (car argument) 'QUOTE)
                  (pair? (cdr argument))

diff --git a/v7/src/runtime/dbgutl.scm b/v7/src/runtime/dbgutl.scm
index 40125b7f4179bb42e874efa83dbb9d186f6bb3a3..6971d997c29172939e3c1e66eecaca01027e11dd 100644 (file)
--- a/v7/src/runtime/dbgutl.scm
+++ b/v7/src/runtime/dbgutl.scm
@@ -1,8 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: dbgutl.scm,v 14.23 2003/02/14 18:28:32 cph Exp $
+$Id: dbgutl.scm,v 14.24 2003/07/31 02:32:02 cph Exp $
 
-Copyright (c) 1988-2002 Massachusetts Institute of Technology
+Copyright 1988,1989,1990,1991,1992,2001 Massachusetts Institute of Technology
+Copyright 2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -51,7 +52,12 @@ USA.
        (debugger-failure port "No procedure for this environment."))))
 
 (define (write-dbg-name name port)
-  (if (string? name) (write-string name port) (write name port)))
+  (cond ((string? name)
+        (write-string name port))
+       ((interned-symbol? name)
+        (write-string (symbol-name name) port))
+       (else
+        (write name port))))
 
 (define (write-dbg-upcase-name name port)
   (cond ((string? name)