From 023107b960296709074abee474f10588509fda67 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 30 Oct 2006 05:50:53 +0000
Subject: [PATCH] Increase obarray size to more reasonable value.  A current
 fully-loaded band has about 28500 interned symbols, so this value should
 provide for very small buckets.

---
 v7/src/microcode/const.h | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/const.h b/v7/src/microcode/const.h
index 4ac15eccb..41415087e 100644
--- a/v7/src/microcode/const.h
+++ b/v7/src/microcode/const.h
@@ -1,9 +1,10 @@
 /* -*-C-*-
 
-$Id: const.h,v 9.52 2004/12/06 21:32:46 cph Exp $
+$Id: const.h,v 9.53 2006/10/30 05:50:53 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1997,2000,2002,2004 Massachusetts Institute of Technology
+Copyright 2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -66,7 +67,7 @@ USA.
 #define FILE_NAME_LENGTH	1024   	/* Max. chars. in a file name */
 #endif
 
-#define OBARRAY_SIZE		3001	/* Interning hash table */
+#define OBARRAY_SIZE		32771	/* Interning hash table */
 
 #ifndef STACK_GUARD_SIZE
 #define STACK_GUARD_SIZE	4096	/* Cells between constant and
-- 
2.25.1