diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-16 18:19:57 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-01-27 21:45:18 +0100 |
commit | f5b2888e83b875c15c88764a9c2e7fa525d7c489 (patch) | |
tree | 8a406db990aefe606a06b8c229c171de0a5ae51a | |
parent | 3e5f10e8a2fd838fd48cbb36194b833073a6b12b (diff) | |
download | guile-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.c | 14 |
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); } } |