diff options
| author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-05-22 13:36:24 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-02-07 15:46:04 +0100 |
| commit | a5340d7288407c6c6cf5c842ae3925d184bf95eb (patch) | |
| tree | 452075c17cf19f9e55451a04d6c4ee1e7296e5ea /libguile/arrays.c | |
| parent | c361f6b17705fdadc4da436d3ec291713c2d7113 (diff) | |
| download | guile-ra0.tar.gz | |
Arrays are not an array implementationra0
* 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 93112e214..702faacbe 100644 --- a/libguile/arrays.c +++ b/libguile/arrays.c @@ -818,8 +818,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 () { |