mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix scm_make_foreign_object_n.

Browse source 
* libguile/foreign-object.c (scm_make_foreign_object_n): Fix computation
  of slot count; broken in 34b9f22ca.
This commit is contained in:
Andy Wingo 2018-09-14 16:11:48 +02:00
parent 09b8f8ec06
commit 4dba01501c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/foreign-object.c
View file

@ -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++)