scratch/obarray d6af4455d72 9/9: Use obarray object for initial obarray

[Mattias Engdegård]

branch: scratch/obarray
commit d6af4455d7281993fd000958e02538651b3d1bf1
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Use obarray object for initial obarray
---
 src/lread.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/lread.c b/src/lread.c
index d8c9dd10ef0..18713e2161d 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -5525,13 +5525,12 @@ DEFUN ("internal--obarray-buckets",
   return Fnreverse (ret);
 }
 
-#define OBARRAY_SIZE 16384
+#define OBARRAY_BITS 15
 
 void
 init_obarray_once (void)
 {
-  /* FIXME: use PVEC_OBARRAY */
-  Vobarray = make_vector (OBARRAY_SIZE, make_fixnum (0));
+  Vobarray = make_obarray (OBARRAY_BITS);
   initial_obarray = Vobarray;
   staticpro (&initial_obarray);