diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-01-11 00:51:19 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-01-11 00:51:19 +0000 |
| commit | 16c5cac25aa125128e123cae34865613e95e2938 (patch) | |
| tree | 0b382ee515014f12183581dc6d3a2a570b4d83b6 /libguile/dynwind.c | |
| parent | 327967ef26cbebc2611c4d49bbbb100378d3b1ff (diff) | |
| download | guile-16c5cac25aa125128e123cae34865613e95e2938.tar.gz | |
(scm_frame_unwind, scm_frame_unwind_handler): Renamed and changed all
uses. (scm_frame_rewind, scm_frame_rewind_handler): Likewise.
Diffstat (limited to 'libguile/dynwind.c')
| -rw-r--r-- | libguile/dynwind.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index ca2fb704d..28dbb0d45 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -120,8 +120,8 @@ scm_internal_dynamic_wind (scm_t_guard before, SCM ans; scm_frame_begin (SCM_F_FRAME_REWINDABLE); - scm_frame_rewind (before, guard_data, SCM_F_WIND_EXPLICITLY); - scm_frame_unwind (after, guard_data, SCM_F_WIND_EXPLICITLY); + scm_frame_rewind_handler (before, guard_data, SCM_F_WIND_EXPLICITLY); + scm_frame_unwind_handler (after, guard_data, SCM_F_WIND_EXPLICITLY); ans = inner (inner_data); scm_frame_end (); return ans; @@ -188,8 +188,8 @@ winder_mark (SCM w) } void -scm_frame_unwind (void (*proc) (void *), void *data, - scm_t_wind_flags flags) +scm_frame_unwind_handler (void (*proc) (void *), void *data, + scm_t_wind_flags flags) { SCM w; scm_t_bits fl = ((flags&SCM_F_WIND_EXPLICITLY)? WINDER_F_EXPLICIT : 0); @@ -199,8 +199,8 @@ scm_frame_unwind (void (*proc) (void *), void *data, } void -scm_frame_rewind (void (*proc) (void *), void *data, - scm_t_wind_flags flags) +scm_frame_rewind_handler (void (*proc) (void *), void *data, + scm_t_wind_flags flags) { SCM w; SCM_NEWSMOB2 (w, tc16_winder | WINDER_F_REWIND, @@ -211,8 +211,8 @@ scm_frame_rewind (void (*proc) (void *), void *data, } void -scm_frame_unwind_with_scm (void (*proc) (SCM), SCM data, - scm_t_wind_flags flags) +scm_frame_unwind_handler_with_scm (void (*proc) (SCM), SCM data, + scm_t_wind_flags flags) { SCM w; scm_t_bits fl = ((flags&SCM_F_WIND_EXPLICITLY)? WINDER_F_EXPLICIT : 0); @@ -222,8 +222,8 @@ scm_frame_unwind_with_scm (void (*proc) (SCM), SCM data, } void -scm_frame_rewind_with_scm (void (*proc) (SCM), SCM data, - scm_t_wind_flags flags) +scm_frame_rewind_handler_with_scm (void (*proc) (SCM), SCM data, + scm_t_wind_flags flags) { SCM w; SCM_NEWSMOB2 (w, tc16_winder | WINDER_F_REWIND | WINDER_F_MARK, |