mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* dynwind.c (scm_i_dowinds): Removed code for handling fluids.

Browse source
This commit is contained in:
Marius Vollmer 2004-01-07 19:50:28 +00:00
parent bebd3fbadd
commit 540cc7abdc
1 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/dynwind.c
View file

@ -41,8 +41,6 @@
(tag . lazy-catch) lazy-catch
tag is either a symbol or a boolean
((fluid ...) . (value ...)) with-fluids
*/
@ -314,15 +312,13 @@ scm_i_dowinds (SCM to, long delta, int explicit,
else
{
wind_key = SCM_CAR (wind_elt);
/* key = #t | symbol | thunk | list of variables | list of fluids */
/* key = #t | symbol | thunk | list of variables */
if (SCM_NIMP (wind_key))
{
if (SCM_CONSP (wind_key))
{
if (SCM_VARIABLEP (SCM_CAR (wind_key)))
scm_swap_bindings (wind_key, SCM_CDR (wind_elt));
else if (SCM_FLUIDP (SCM_CAR (wind_key)))
scm_i_swap_fluids (wind_key, SCM_CDR (wind_elt));
}
else if (SCM_TYP3 (wind_key) == scm_tc3_closure)
scm_call_0 (wind_key);
@ -370,9 +366,6 @@ scm_i_dowinds (SCM to, long delta, int explicit,
{
if (SCM_VARIABLEP (SCM_CAR (wind_key)))
scm_swap_bindings (wind_key, SCM_CDR (wind_elt));
else if (SCM_FLUIDP (SCM_CAR (wind_key)))
scm_i_swap_fluids_reverse (wind_key,
SCM_CDR (wind_elt));
}
else if (SCM_TYP3 (wind_key) == scm_tc3_closure)
scm_call_0 (SCM_CDR (wind_elt));