diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-01-07 19:50:28 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-01-07 19:50:28 +0000 |
commit | 540cc7abdca49861911a24280429a8f5b3e06467 (patch) | |
tree | 857215d9719d68665609cb09eb5fd39f0e9fd3b2 /libguile/dynwind.c | |
parent | bebd3fbadd8541ee42b3e311c0e7f4a4751c6703 (diff) | |
download | guile-540cc7abdca49861911a24280429a8f5b3e06467.tar.gz |
* dynwind.c (scm_i_dowinds): Removed code for handling fluids.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index c864ac86e..6c2cb6709 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -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)); |