summaryrefslogtreecommitdiff
path: root/libguile/procs.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-01-18 12:44:15 +0100
committerLudovic Courtès <ludo@gnu.org>2009-01-18 12:44:15 +0100
commitf48393a99b4886e6005baad9d25d8fefe6cefecc (patch)
tree607026a6c559263ac3ada09c337f24ed90f6fd8c /libguile/procs.c
parent81ba12d74d03e3aa9398efb2949346ab1710469a (diff)
downloadguile-f48393a99b4886e6005baad9d25d8fefe6cefecc.tar.gz
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.
Diffstat (limited to 'libguile/procs.c')
-rw-r--r--libguile/procs.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index f4afda1f6..624eb558f 100644
--- 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)
{