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

Don't use scm_is_generalized_vector in shared-array-root

Browse source 
* libguile/arrays.c: (scm_shared_array_root): replace check for
  scm_is_generalized_vector.
This commit is contained in:
Daniel Llorens 2013-04-10 13:48:13 +02:00 • committed by Andy Wingo
parent 1080ce25bc
commit c2cb82f85a
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/arrays.c
View file

@ -60,21 +60,22 @@
(SCM_SET_CELL_WORD_0 ((x), SCM_CELL_WORD_0 (x) & ~(SCM_I_ARRAY_FLAG_CONTIGUOUS << 16))) (SCM_SET_CELL_WORD_0 ((x), SCM_CELL_WORD_0 (x) & ~(SCM_I_ARRAY_FLAG_CONTIGUOUS << 16)))
SCM_DEFINE (scm_shared_array_root, "shared-array-root", 1, 0, 0, SCM_DEFINE (scm_shared_array_root, "shared-array-root", 1, 0, 0,
(SCM ra), (SCM ra),
"Return the root vector of a shared array.") "Return the root vector of a shared array.")
#define FUNC_NAME s_scm_shared_array_root #define FUNC_NAME s_scm_shared_array_root
{ {
if (SCM_I_ARRAYP (ra)) if (!scm_is_array (ra))
scm_wrong_type_arg_msg (FUNC_NAME, SCM_ARG1, ra, "array");
else if (SCM_I_ARRAYP (ra))
return SCM_I_ARRAY_V (ra); return SCM_I_ARRAY_V (ra);
else if (scm_is_generalized_vector (ra)) else
return ra; return ra;
scm_wrong_type_arg_msg (FUNC_NAME, SCM_ARG1, ra, "array");
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE (scm_shared_array_offset, "shared-array-offset", 1, 0, 0, SCM_DEFINE (scm_shared_array_offset, "shared-array-offset", 1, 0, 0,
(SCM ra), (SCM ra),
"Return the root vector index of the first element in the array.") "Return the root vector index of the first element in the array.")
#define FUNC_NAME s_scm_shared_array_offset #define FUNC_NAME s_scm_shared_array_offset