summaryrefslogtreecommitdiff
path: root/libguile/foreign-object.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-09-14 16:11:48 +0200
committerAndy Wingo <wingo@pobox.com>2018-09-14 16:11:48 +0200
commit4dba01501c8dd305d78c053830fcf1fe064814a6 (patch)
tree900fb4eb1a6c8a581f0389b592fe58d0d3a22d7b /libguile/foreign-object.c
parent09b8f8ec06f0f7fbed66255a3085a100e8c3646a (diff)
downloadguile-4dba01501c8dd305d78c053830fcf1fe064814a6.tar.gz
Fix scm_make_foreign_object_n.
* libguile/foreign-object.c (scm_make_foreign_object_n): Fix computation of slot count; broken in 34b9f22ca.
Diffstat (limited to 'libguile/foreign-object.c')
-rw-r--r--libguile/foreign-object.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/foreign-object.c b/libguile/foreign-object.c
index d1fa50492..7e72c2fa7 100644
--- a/libguile/foreign-object.c
+++ b/libguile/foreign-object.c
@@ -120,7 +120,7 @@ scm_make_foreign_object_n (SCM type, size_t n, void *vals[])
SCM_VALIDATE_VTABLE (SCM_ARG1, type);
- if (SCM_VTABLE_SIZE (type) / 2 < n)
+ if (SCM_VTABLE_SIZE (type) < n)
scm_out_of_range (FUNC_NAME, scm_from_size_t (n));
for (i = 0; i < n; i++)