summaryrefslogtreecommitdiff
path: root/libguile/dynwind.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-01-07 19:50:28 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-01-07 19:50:28 +0000
commit540cc7abdca49861911a24280429a8f5b3e06467 (patch)
tree857215d9719d68665609cb09eb5fd39f0e9fd3b2 /libguile/dynwind.c
parentbebd3fbadd8541ee42b3e311c0e7f4a4751c6703 (diff)
downloadguile-540cc7abdca49861911a24280429a8f5b3e06467.tar.gz
* dynwind.c (scm_i_dowinds): Removed code for handling fluids.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r--libguile/dynwind.c9
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));