Make variables related to the subr table size private and unsigned.

* libguile/procs.c (scm_subr_table_size, scm_subr_table_room): Made
  `static' and `unsigned'.
  (scm_c_make_subr)[entry]: Made `unsigned'.

* libguile/procs.h (scm_subr_table_size, scm_subr_table_room): Remove
  declarations.

diff --git a/libguile/procs.c b/libguile/procs.c
index f4afda1..624eb55 100644 (file)
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -44,14 +44,14 @@ scm_t_subr_entry *scm_subr_table;
 /* Increased to 800 on 2001-05-07 -- Guile now has 779 primitives on
    startup, 786 with guile-readline.  'martin */
 
-long scm_subr_table_size = 0;
-long scm_subr_table_room = 800;
+static unsigned long scm_subr_table_size = 0;
+static unsigned long scm_subr_table_room = 800;
 
 SCM 
 scm_c_make_subr (const char *name, long type, SCM (*fcn) ())
 {
   register SCM z;
-  long entry;
+  unsigned long entry;
 
   if (scm_subr_table_size == scm_subr_table_room)
     {

diff --git a/libguile/procs.h b/libguile/procs.h
index 734ce7b..122187c 100644 (file)
--- a/libguile/procs.h
+++ b/libguile/procs.h
@@ -3,7 +3,7 @@
 #ifndef SCM_PROCS_H
 #define SCM_PROCS_H
 
-/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2006, 2008 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2006, 2008, 2009 Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -125,8 +125,6 @@ typedef struct
 #define SCM_SETTER(obj) SCM_CELL_OBJECT_2 (obj)
 
 SCM_API scm_t_subr_entry *scm_subr_table;
-SCM_API long scm_subr_table_size;
-SCM_API long scm_subr_table_room;
 
 \f