diff options
author | Andy Wingo <wingo@pobox.com> | 2018-09-14 16:11:48 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-09-14 16:11:48 +0200 |
commit | 4dba01501c8dd305d78c053830fcf1fe064814a6 (patch) | |
tree | 900fb4eb1a6c8a581f0389b592fe58d0d3a22d7b /libguile/foreign-object.c | |
parent | 09b8f8ec06f0f7fbed66255a3085a100e8c3646a (diff) | |
download | guile-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.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++) |