summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1999-08-31 08:49:21 +0000
committerJim Blandy <jimb@red-bean.com>1999-08-31 08:49:21 +0000
commit98f9c98402ac5e010eb7e27e73a67884bf97861d (patch)
tree7dfa10878beca2c68f79daf9b55bb901a7c33dd6
parent177c2d8879734263bbe764173bd07bd295cdf03a (diff)
downloadguile-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.c13
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;
}