253 |
} |
} |
254 |
|
|
255 |
size = ngroups * sizeof (GETGROUPS_T); |
size = ngroups * sizeof (GETGROUPS_T); |
256 |
/* XXX - if (size / sizeof (GETGROUPS_T) != ngroups) out-of-range */ |
if (size / sizeof (GETGROUPS_T) != ngroups) |
257 |
|
SCM_OUT_OF_RANGE (SCM_ARG1, SCM_MAKINUM (ngroups)); |
258 |
groups = scm_malloc (size); |
groups = scm_malloc (size); |
259 |
for(i = 0; i < ngroups; i++) |
for(i = 0; i < ngroups; i++) |
260 |
groups [i] = SCM_NUM2ULONG (1, SCM_VECTOR_REF (group_vec, i)); |
groups [i] = SCM_NUM2ULONG (1, SCM_VECTOR_REF (group_vec, i)); |