summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2006-05-27 21:32:22 +0000
committerMarius Vollmer <mvo@zagadka.de>2006-05-27 21:32:22 +0000
commitb0c0a310db8c99c70066e1ccd97874f48422d173 (patch)
treeec05a5619d16ea7e40ab59cee3d18442617daa3a /libguile/srfi-4.c
parent4a342b19e2b323e0bf77c454f68e6d9d70bba870 (diff)
downloadguile-b0c0a310db8c99c70066e1ccd97874f48422d173.tar.gz
Replace SCM_C_INLINE with SCM_C_INLINE_KEYWORD. Thanks to Mark Gran!
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r--libguile/srfi-4.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c
index fc5da1513..7d22f8b52 100644
--- a/libguile/srfi-4.c
+++ b/libguile/srfi-4.c
@@ -277,7 +277,7 @@ uvec_free (SCM uvec)
/* Utility procedures. */
/* ================================================================ */
-static SCM_C_INLINE int
+static SCM_C_INLINE_KEYWORD int
is_uvec (int type, SCM obj)
{
if (SCM_IS_UVEC (obj))
@@ -290,13 +290,13 @@ is_uvec (int type, SCM obj)
return 0;
}
-static SCM_C_INLINE SCM
+static SCM_C_INLINE_KEYWORD SCM
uvec_p (int type, SCM obj)
{
return scm_from_bool (is_uvec (type, obj));
}
-static SCM_C_INLINE void
+static SCM_C_INLINE_KEYWORD void
uvec_assert (int type, SCM obj)
{
if (!is_uvec (type, obj))
@@ -334,7 +334,7 @@ alloc_uvec (int type, size_t len)
so we use a big 'if' in the next two functions.
*/
-static SCM_C_INLINE SCM
+static SCM_C_INLINE_KEYWORD SCM
uvec_fast_ref (int type, const void *base, size_t c_idx)
{
if (type == SCM_UVEC_U8)
@@ -390,7 +390,7 @@ assert_exact_integer_range (SCM val, SCM min, SCM max)
}
#endif
-static SCM_C_INLINE void
+static SCM_C_INLINE_KEYWORD void
uvec_fast_set_x (int type, void *base, size_t c_idx, SCM val)
{
if (type == SCM_UVEC_U8)
@@ -438,7 +438,7 @@ uvec_fast_set_x (int type, void *base, size_t c_idx, SCM val)
}
}
-static SCM_C_INLINE SCM
+static SCM_C_INLINE_KEYWORD SCM
make_uvec (int type, SCM len, SCM fill)
{
size_t c_len = scm_to_size_t (len);
@@ -453,7 +453,7 @@ make_uvec (int type, SCM len, SCM fill)
return uvec;
}
-static SCM_C_INLINE void *
+static SCM_C_INLINE_KEYWORD void *
uvec_writable_elements (int type, SCM uvec, scm_t_array_handle *handle,
size_t *lenp, ssize_t *incp)
{
@@ -468,7 +468,7 @@ uvec_writable_elements (int type, SCM uvec, scm_t_array_handle *handle,
return scm_uniform_vector_writable_elements (uvec, handle, lenp, incp);
}
-static SCM_C_INLINE const void *
+static SCM_C_INLINE_KEYWORD const void *
uvec_elements (int type, SCM uvec, scm_t_array_handle *handle,
size_t *lenp, ssize_t *incp)
{
@@ -503,7 +503,7 @@ uvec_to_list (int type, SCM uvec)
return res;
}
-static SCM_C_INLINE SCM
+static SCM_C_INLINE_KEYWORD SCM
uvec_length (int type, SCM uvec)
{
scm_t_array_handle handle;
@@ -514,7 +514,7 @@ uvec_length (int type, SCM uvec)
return scm_from_size_t (len);
}
-static SCM_C_INLINE SCM
+static SCM_C_INLINE_KEYWORD SCM
uvec_ref (int type, SCM uvec, SCM idx)
{
scm_t_array_handle handle;
@@ -532,7 +532,7 @@ uvec_ref (int type, SCM uvec, SCM idx)
return res;
}
-static SCM_C_INLINE SCM
+static SCM_C_INLINE_KEYWORD SCM
uvec_set_x (int type, SCM uvec, SCM idx, SCM val)
{
scm_t_array_handle handle;
@@ -549,7 +549,7 @@ uvec_set_x (int type, SCM uvec, SCM idx, SCM val)
return SCM_UNSPECIFIED;
}
-static SCM_C_INLINE SCM
+static SCM_C_INLINE_KEYWORD SCM
list_to_uvec (int type, SCM list)
{
SCM uvec;