diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-05-22 13:36:24 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-01-27 21:49:10 +0100 |
commit | 257e163c7521acd62fc806c6f803a04e477b40b0 (patch) | |
tree | becc8749df58c1a43d77cc7e5ca148c416148930 /libguile/arrays.c | |
parent | 96f733226313b797e5f38948dc8216112f54f756 (diff) | |
download | guile-257e163c7521acd62fc806c6f803a04e477b40b0.tar.gz |
Arrays are not an array implementationlloda-array-cleanup
* libguile/bitvectors.c: match other uses of SCM_ARRAY_IMPLEMENTATION.
* libguile/generalized-arrays.c
(scm_is_array): don't use scm_i_array_implementation_for_obj on arrays.
(scm_is_typed_array): idem. Use impl->get_handle instead of
scm_array_get_handle to avoid calling scm_i_array_implementation_for_obj
twice.
* libguile/arrays.c: remove SCM_ARRAY_IMPLEMENTATION on scm_tc7_array type.
Diffstat (limited to 'libguile/arrays.c')
-rw-r--r-- | libguile/arrays.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/libguile/arrays.c b/libguile/arrays.c index 49015a4ca..88e5440a8 100644 --- a/libguile/arrays.c +++ b/libguile/arrays.c @@ -817,8 +817,6 @@ scm_i_print_array (SCM array, SCM port, scm_print_state *pstate) return scm_i_print_array_dimension (&h, 0, 0, port, pstate); } -SCM_ARRAY_IMPLEMENTATION (scm_tc7_array, 0x7f, NULL, NULL, NULL) - void scm_init_arrays () { |