/*! * \brief Set the #TOPLEVEL fluid in the current dynamic context. * \ingroup guile_c_iface * \par Function Description * This function must be used inside a pair of calls to * scm_dynwind_begin() and scm_dynwind_end(). During the dynwind * context, the #TOPLEVEL fluid is set to \a toplevel. * * \note This is a part of the public C interface to the Scheme API. */ void edascm_dynwind_toplevel (TOPLEVEL *toplevel) { SCM s_toplevel = edascm_from_toplevel (toplevel); scm_dynwind_fluid (scheme_toplevel_fluid, s_toplevel); }
/*! * \brief Set the #GschemToplevel fluid in the current dynamic context. * \par Function Description * * This function must be used inside a pair of calls to * scm_dynwind_begin() and scm_dynwind_end(). During the dynwind * context, the #GschemToplevel fluid is set to \a w_current. * * \param [in] w_current The new GschemToplevel pointer. */ void g_dynwind_window (GschemToplevel *w_current) { SCM window_s = g_scm_from_window (w_current); scm_dynwind_fluid (scheme_window_fluid, window_s); edascm_dynwind_toplevel (w_current->toplevel); }