mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Some code layout fixes

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-12-17 13:08:46 +00:00
parent df850562d5
commit f172c0b71d
1 changed files with 25 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/vectors.c
View file

@ -127,7 +127,8 @@ GUILE_PROC(scm_vector_p, "vector?", 1, 0, 0,
"") "")
#define FUNC_NAME s_scm_vector_p #define FUNC_NAME s_scm_vector_p
{ {
if (SCM_IMP(x)) return SCM_BOOL_F; if (SCM_IMP (x))
return SCM_BOOL_F;
return SCM_BOOL (SCM_VECTORP (x)); return SCM_BOOL (SCM_VECTORP (x));
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -188,7 +189,7 @@ scm_vector_set_x(SCM v, SCM k, SCM obj)
SCM_ARG2, s_vector_set_x); SCM_ARG2, s_vector_set_x);
SCM_ASSERT ((SCM_INUM (k) < SCM_LENGTH (v)) && (SCM_INUM (k) >= 0), SCM_ASSERT ((SCM_INUM (k) < SCM_LENGTH (v)) && (SCM_INUM (k) >= 0),
k, SCM_OUTOFRANGE, s_vector_set_x); k, SCM_OUTOFRANGE, s_vector_set_x);
SCM_VELTS(v)[((long) SCM_INUM(k))] = obj; SCM_VELTS(v)[(long) SCM_INUM(k)] = obj;
return obj; return obj;
} }