mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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
{
if (SCM_IMP(x)) return SCM_BOOL_F;
if (SCM_IMP (x))
return SCM_BOOL_F;
return SCM_BOOL (SCM_VECTORP (x));
}
#undef FUNC_NAME
@ -188,7 +189,7 @@ scm_vector_set_x(SCM v, SCM k, SCM obj)
SCM_ARG2, s_vector_set_x);
SCM_ASSERT ((SCM_INUM (k) < SCM_LENGTH (v)) && (SCM_INUM (k) >= 0),
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;
}