summaryrefslogtreecommitdiff
path: root/libguile/fluids.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r--libguile/fluids.c17
1 files changed, 12 insertions, 5 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c
index db14f17a8..f62693338 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -370,6 +370,17 @@ fluid_ref (scm_t_dynamic_state *dynamic_state, SCM fluid)
return val;
}
+SCM
+scm_i_fluid_ref (scm_thread *thread, SCM fluid)
+{
+ SCM ret = fluid_ref (thread->dynamic_state, fluid);
+
+ if (SCM_UNBNDP (ret))
+ scm_misc_error ("fluid-ref", "unbound fluid: ~S", scm_list_1 (fluid));
+
+ return ret;
+}
+
SCM_DEFINE (scm_fluid_ref, "fluid-ref", 1, 0, 0,
(SCM fluid),
"Return the value associated with @var{fluid} in the current\n"
@@ -377,12 +388,8 @@ SCM_DEFINE (scm_fluid_ref, "fluid-ref", 1, 0, 0,
"its default value.")
#define FUNC_NAME s_scm_fluid_ref
{
- SCM ret;
SCM_VALIDATE_FLUID (1, fluid);
- ret = fluid_ref (SCM_I_CURRENT_THREAD->dynamic_state, fluid);
- if (SCM_UNBNDP (ret))
- scm_misc_error ("fluid-ref", "unbound fluid: ~S", scm_list_1 (fluid));
- return ret;
+ return scm_i_fluid_ref (SCM_I_CURRENT_THREAD, fluid);
}
#undef FUNC_NAME