summaryrefslogtreecommitdiff
path: root/libguile/fluids.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r--libguile/fluids.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c
index 826883e4e..32a5ffd37 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -35,7 +35,7 @@ static volatile long n_fluids;
scm_t_bits scm_tc16_fluid;
SCM
-scm_make_initial_fluids ()
+scm_i_make_initial_fluids ()
{
return scm_c_make_vector (INITIAL_FLUIDS, SCM_BOOL_F);
}
@@ -65,7 +65,7 @@ grow_fluids (scm_root_state *root_state, int new_length)
}
void
-scm_copy_fluids (scm_root_state *root_state)
+scm_i_copy_fluids (scm_root_state *root_state)
{
grow_fluids (root_state, SCM_VECTOR_LENGTH (root_state->fluids));
}
@@ -153,7 +153,7 @@ SCM_DEFINE (scm_fluid_set_x, "fluid-set!", 2, 0, 0,
#undef FUNC_NAME
void
-scm_swap_fluids (SCM fluids, SCM vals)
+scm_i_swap_fluids (SCM fluids, SCM vals)
{
while (!SCM_NULL_OR_NIL_P (fluids))
{
@@ -170,13 +170,13 @@ scm_swap_fluids (SCM fluids, SCM vals)
same fluid appears multiple times in the fluids list. */
void
-scm_swap_fluids_reverse (SCM fluids, SCM vals)
+scm_i_swap_fluids_reverse (SCM fluids, SCM vals)
{
if (!SCM_NULL_OR_NIL_P (fluids))
{
SCM fl, old_val;
- scm_swap_fluids_reverse (SCM_CDR (fluids), SCM_CDR (vals));
+ scm_i_swap_fluids_reverse (SCM_CDR (fluids), SCM_CDR (vals));
fl = SCM_CAR (fluids);
old_val = scm_fluid_ref (fl);
scm_fluid_set_x (fl, SCM_CAR (vals));
@@ -215,11 +215,11 @@ scm_c_with_fluids (SCM fluids, SCM values, SCM (*cproc) (), void *cdata)
if (flen != vlen)
scm_out_of_range (s_scm_with_fluids, values);
- scm_swap_fluids (fluids, values);
+ scm_i_swap_fluids (fluids, values);
scm_dynwinds = scm_acons (fluids, values, scm_dynwinds);
ans = cproc (cdata);
scm_dynwinds = SCM_CDR (scm_dynwinds);
- scm_swap_fluids_reverse (fluids, values);
+ scm_i_swap_fluids_reverse (fluids, values);
return ans;
}
#undef FUNC_NAME