diff options
Diffstat (limited to 'libguile/foreign-object.c')
-rw-r--r-- | libguile/foreign-object.c | 2 |
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++) |