summaryrefslogtreecommitdiff
path: root/libguile/foreign-object.c
diff options
context:
space:
mode:
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++)