diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/procs.c | 6 | ||||
-rw-r--r-- | libguile/procs.h | 4 |
2 files changed, 4 insertions, 6 deletions
diff --git a/libguile/procs.c b/libguile/procs.c index edf398a04..6f8d206f6 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -47,14 +47,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 cf9cdf182..8365abec5 100644 --- 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 @@ -131,8 +131,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; |