mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-05 17:20:18 +02:00
Code Activity

Rename scm_t_array_handle.array to .root

Browse source 
Globally rename this field (after shared-array-root), since it's not an array.
This commit is contained in:
Daniel Llorens 2013-04-29 15:37:52 +02:00 • committed by Andy Wingo
parent 99c0a58a2f
commit d0b47b4946
9 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/srfi-4.c
View file

@ -118,13 +118,13 @@
const ctype* scm_array_handle_##tag##_elements (scm_t_array_handle *h) \
{ \
if (h->element_type != ETYPE (TAG)) \
scm_wrong_type_arg_msg (NULL, 0, h->array, #tag "vector"); \
scm_wrong_type_arg_msg (NULL, 0, h->root, #tag "vector"); \
return ((const ctype*) h->elements) + h->base*width; \
} \
ctype* scm_array_handle_##tag##_writable_elements (scm_t_array_handle *h) \
{ \
if (h->element_type != ETYPE (TAG)) \
scm_wrong_type_arg_msg (NULL, 0, h->array, #tag "vector"); \
scm_wrong_type_arg_msg (NULL, 0, h->root, #tag "vector"); \
return ((ctype*) h->writable_elements) + h->base*width; \
} \
const ctype *scm_##tag##vector_elements (SCM uvec, \
@ -142,7 +142,7 @@
return ((ctype*)h->writable_elements) + h->base*width; \
/* otherwise... */ \
else \
scm_wrong_type_arg_msg (NULL, 0, h->array, #tag "vector"); \
scm_wrong_type_arg_msg (NULL, 0, h->root, #tag "vector"); \
}