mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 04:00:19 +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

9
libguile/arrays.c
View file

@ -65,11 +65,12 @@ SCM_DEFINE (scm_shared_array_root, "shared-array-root", 1, 0, 0,
"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))
return SCM_I_ARRAY_V (ra);
else if (scm_is_generalized_vector (ra))
return ra;
scm_wrong_type_arg_msg (FUNC_NAME, SCM_ARG1, ra, "array"); scm_wrong_type_arg_msg (FUNC_NAME, SCM_ARG1, ra, "array");
else if (SCM_I_ARRAYP (ra))
return SCM_I_ARRAY_V (ra);
else
return ra;
} }
#undef FUNC_NAME #undef FUNC_NAME