Don't print hash number for value that is a number.

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index c32d66ea14e1bbdc0e8ac3bd34907cdcc6c2a029..4420430efd0e9f94160ce2373d48266946a7842a 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.18 1991/03/06 23:02:54 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.19 1991/03/14 04:27:13 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -527,7 +527,8 @@ MIT in each case. |#
 
 (define (repl-write/show-hash? object)
   (and (object-pointer? object)
-       (not (interned-symbol? object))))
+       (not (interned-symbol? object))
+       (not (number? object))))
 \f
 ;;;; History