diff options
Diffstat (limited to 'libguile/fluids.h')
-rw-r--r-- | libguile/fluids.h | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/libguile/fluids.h b/libguile/fluids.h index 7b67318be..c80d1e696 100644 --- a/libguile/fluids.h +++ b/libguile/fluids.h @@ -95,8 +95,10 @@ SCM scm_fluid_p (SCM fl); SCM scm_fluid_ref (SCM fluid); SCM scm_fluid_set_x (SCM fluid, SCM value); -SCM scm_internal_with_fluids (SCM fluids, SCM vals, - SCM (*cproc)(void *), void *cdata); +SCM scm_c_with_fluids (SCM fluids, SCM vals, + SCM (*cproc)(void *), void *cdata); +SCM scm_c_with_fluid (SCM fluid, SCM val, + SCM (*cproc)(void *), void *cdata); SCM scm_with_fluids (SCM fluids, SCM vals, SCM thunk); SCM scm_make_initial_fluids (void); @@ -106,6 +108,14 @@ void scm_swap_fluids_reverse (SCM fluids, SCM vals); void scm_init_fluids (void); +#if SCM_DEBUG_DEPRECATED == 0 + +/* Use scm_c_with_fluids instead. */ +SCM scm_internal_with_fluids (SCM fluids, SCM vals, + SCM (*cproc)(void *), void *cdata); + +#endif + #endif /* !FLUIDSH */ /* |