Don't show hash number when REPL value is an interned symbol.

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index 94b45c49cd9bed2376da5ea0a000bbd5cb19ace8..c11fe7fa2a5c97ecc7954fdb50a1adc4c480cbf9 100644 (file)
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 14.7 1991/02/15 18:05:04 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 14.8 1991/03/06 23:03:24 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -87,9 +87,7 @@ MIT in each case. |#
        (repl-history/record! (repl/printer-history repl) object)
        (cond ((undefined-value? object)
               (transmit-signal-with-argument #\v ""))
-             ((object-non-pointer? object)
-              (transmit-signal-with-argument #\v (object->string object)))
-             (else
+             ((repl-write/show-hash? object)
               ;; The #\P command used to do something useful, but now
               ;; it just sets the Emacs variable `xscheme-prompt' to
               ;; its string argument.  We use this to advantage here.
@@ -97,7 +95,9 @@ MIT in each case. |#
               (emacs-eval
                "(xscheme-write-message-1 xscheme-prompt (format \";Value "
                (number->string (object-hash object))
-               ": %s\" xscheme-prompt))"))))
+               ": %s\" xscheme-prompt))"))
+             (else
+              (transmit-signal-with-argument #\v (object->string object)))))
       (normal/repl-write repl object)))
 
 (define (emacs/cmdl-message cmdl string)

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 8914008793479df133f1cbda9d70cbbae7a1e4f6..c32d66ea14e1bbdc0e8ac3bd34907cdcc6c2a029 100644 (file)
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.17 1991/02/15 18:06:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.18 1991/03/06 23:02:54 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -518,12 +518,16 @@ MIT in each case. |#
          (write-string "\n;No value" output-port)
          (begin
            (write-string "\n;Value" output-port)
-           (if (object-pointer? object)
+           (if (repl-write/show-hash? object)
                (begin
                  (write-string " " output-port)
                  (write (object-hash object) output-port)))
            (write-string ": " output-port)
            (write object output-port))))))
+
+(define (repl-write/show-hash? object)
+  (and (object-pointer? object)
+       (not (interned-symbol? object))))
 \f
 ;;;; History
 

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 5d45e75e2baa27c78cd1a5ccd2c93894b1c24a65..b5e525b1d37f109d4435e7c2174db1addc0d1276 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.92 1991/03/06 05:14:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.93 1991/03/06 23:03:37 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1708,7 +1708,8 @@ MIT in each case. |#
          hook/read-command-char
          hook/repl-environment
          hook/repl-read
-         hook/repl-write)
+         hook/repl-write
+         repl-write/show-hash?)
   (export (runtime debugger-command-loop)
          hook/repl-environment)
   (initialization (initialize-package!)))

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 829562e5620b0e9bc7435be72704f6ff1a12618f..3cb0f3948ba8ede29426c1eb79f2629eb367e4d4 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.92 1991/03/06 05:14:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.93 1991/03/06 23:03:37 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1708,7 +1708,8 @@ MIT in each case. |#
          hook/read-command-char
          hook/repl-environment
          hook/repl-read
-         hook/repl-write)
+         hook/repl-write
+         repl-write/show-hash?)
   (export (runtime debugger-command-loop)
          hook/repl-environment)
   (initialization (initialize-package!)))