From 91ac1b6c95fc4dc1e0e4c87603d9a65c1791a1e2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Mar 1991 04:27:13 +0000
Subject: [PATCH] Don't print hash number for value that is a number.

---
 v7/src/runtime/rep.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index c32d66ea1..4420430ef 100644
--- 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))))
 
 ;;;; History
 
-- 
2.25.1