diff options
author | Jim Blandy <jimb@red-bean.com> | 1999-08-31 08:49:21 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1999-08-31 08:49:21 +0000 |
commit | 98f9c98402ac5e010eb7e27e73a67884bf97861d (patch) | |
tree | 7dfa10878beca2c68f79daf9b55bb901a7c33dd6 | |
parent | 177c2d8879734263bbe764173bd07bd295cdf03a (diff) | |
download | guile-98f9c98402ac5e010eb7e27e73a67884bf97861d.tar.gz |
* procs.c (scm_make_subr_opt): Fix typo. Remember to multiple
table lengths by the size of a single element when growing the
table.
-rw-r--r-- | libguile/procs.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/libguile/procs.c b/libguile/procs.c index a9f755a94..0a1cd4089 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -54,7 +54,7 @@ scm_subr_entry *scm_subr_table; -/* libguile contained approx. 700 primitive procedures 990824. */ +/* libguile contained approx. 700 primitive procedures on 24 Aug 1999. */ int scm_subr_table_size = 0; int scm_subr_table_room = 750; @@ -72,11 +72,12 @@ scm_make_subr_opt (name, type, fcn, set) if (scm_subr_table_size == scm_subr_table_room) { - scm_sizet new_size = scm_port_table_room * 3 / 2; - void *new_table = scm_must_realloc ((char *) scm_subr_table, - scm_subr_table_room, - new_size, - "scm_make_subr_opt"); + scm_sizet new_size = scm_subr_table_room * 3 / 2; + void *new_table + = scm_must_realloc ((char *) scm_subr_table, + sizeof (scm_subr_entry) * scm_subr_table_room, + sizeof (scm_subr_entry) * new_size, + "scm_make_subr_opt"); scm_subr_table = new_table; scm_subr_table_room = new_size; } |