mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(scm_frame_fluid): New.

Browse source
This commit is contained in:
Marius Vollmer 2004-01-07 18:08:52 +00:00
parent 07add3457b
commit ef20bf705f
2 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/fluids.c
View file

@ -233,6 +233,23 @@ scm_c_with_fluid (SCM fluid, SCM value, SCM (*cproc) (), void *cdata)
}
#undef FUNC_NAME
static void
swap_fluid (SCM data)
{
SCM f = SCM_CAR (data);
SCM t = scm_fluid_ref (f);
scm_fluid_set_x (f, SCM_CDR (data));
SCM_SETCDR (data, t);
}
void
scm_frame_fluid (SCM fluid, SCM value)
{
SCM data = scm_cons (fluid, value);
scm_frame_rewind_with_scm (swap_fluid, data, SCM_F_WIND_EXPLICITLY);
scm_frame_unwind_with_scm (swap_fluid, data, SCM_F_WIND_EXPLICITLY);
}
void
scm_init_fluids ()
{

2
libguile/fluids.h
View file

@ -76,6 +76,8 @@ SCM_API SCM scm_c_with_fluid (SCM fluid, SCM val,
SCM (*cproc)(void *), void *cdata);
SCM_API SCM scm_with_fluids (SCM fluids, SCM vals, SCM thunk);
SCM_API void scm_frame_fluid (SCM fluid, SCM value);
SCM_API SCM scm_i_make_initial_fluids (void);
SCM_API void scm_i_copy_fluids (scm_root_state *);
SCM_API void scm_i_swap_fluids (SCM fluids, SCM vals);