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

Fix comment in scm_array_get_handle

Browse source 
libguile/array-handle.c: (scm_array_get_handle): comment applies to either branch.
This commit is contained in:
Daniel Llorens 2013-04-16 18:19:57 +02:00 • committed by Andy Wingo
parent 3e5f10e8a2
commit f5b2888e83
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/array-handle.c
View file

@ -59,6 +59,8 @@ scm_i_array_implementation_for_obj (SCM obj)
return NULL; return NULL;
} }
/* see bitvector_get_handle, string_get_handle, bytevector_get_handle,
vector_get_handle, only ever called from here */
void void
scm_array_get_handle (SCM array, scm_t_array_handle *h) scm_array_get_handle (SCM array, scm_t_array_handle *h)
{ {
@ -77,16 +79,10 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
else else
{ {
impl = scm_i_array_implementation_for_obj (array); impl = scm_i_array_implementation_for_obj (array);
if (impl) if (!impl)
{
h->impl = impl;
/* see bitvector_get_handle, string_get_handle,
bytevector_get_handle, vector_get_handle, only ever called
from here */
h->impl->get_handle (array, h);
}
else
scm_wrong_type_arg_msg (NULL, 0, array, "array"); scm_wrong_type_arg_msg (NULL, 0, array, "array");
h->impl = impl;
h->impl->get_handle (array, h);
} }
} }