diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/dynwind.c | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 299842912..01a02254f 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -164,7 +164,7 @@ scm_frame_end (void) encounter #<winder> entries on the way. */ - while (SCM_CONSP (scm_dynwinds)) + while (scm_is_pair (scm_dynwinds)) { SCM entry = SCM_CAR (scm_dynwinds); scm_dynwinds = SCM_CDR (scm_dynwinds); @@ -308,7 +308,7 @@ scm_i_dowinds (SCM to, long delta, void (*turn_func) (void *), void *data) /* key = #t | symbol | thunk | list of variables */ if (SCM_NIMP (wind_key)) { - if (SCM_CONSP (wind_key)) + if (scm_is_pair (wind_key)) { if (SCM_VARIABLEP (SCM_CAR (wind_key))) scm_swap_bindings (wind_key, SCM_CDR (wind_elt)); @@ -342,7 +342,7 @@ scm_i_dowinds (SCM to, long delta, void (*turn_func) (void *), void *data) wind_key = SCM_CAR (wind_elt); if (SCM_NIMP (wind_key)) { - if (SCM_CONSP (wind_key)) + if (scm_is_pair (wind_key)) { if (SCM_VARIABLEP (SCM_CAR (wind_key))) scm_swap_bindings (wind_key, SCM_CDR (wind_elt)); |