summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2013-04-16 18:19:57 +0200
committerAndy Wingo <wingo@pobox.com>2014-01-27 21:45:18 +0100
commitf5b2888e83b875c15c88764a9c2e7fa525d7c489 (patch)
tree8a406db990aefe606a06b8c229c171de0a5ae51a
parent3e5f10e8a2fd838fd48cbb36194b833073a6b12b (diff)
downloadguile-f5b2888e83b875c15c88764a9c2e7fa525d7c489.tar.gz
Fix comment in scm_array_get_handle
libguile/array-handle.c: (scm_array_get_handle): comment applies to either branch.
-rw-r--r--libguile/array-handle.c14
1 files changed, 5 insertions, 9 deletions
diff --git a/libguile/array-handle.c b/libguile/array-handle.c
index 0611c1bf9..e914456a0 100644
--- a/libguile/array-handle.c
+++ b/libguile/array-handle.c
@@ -59,6 +59,8 @@ scm_i_array_implementation_for_obj (SCM obj)
return NULL;
}
+/* see bitvector_get_handle, string_get_handle, bytevector_get_handle,
+ vector_get_handle, only ever called from here */
void
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
{
impl = scm_i_array_implementation_for_obj (array);
- 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
+ if (!impl)
scm_wrong_type_arg_msg (NULL, 0, array, "array");
+ h->impl = impl;
+ h->impl->get_handle (array, h);
}
}