diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2009-10-07 22:14:38 +0100 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2009-10-07 22:14:38 +0100 |
commit | 98241dc53fc66ec86c01b9eeea426def2f787cec (patch) | |
tree | 94a2ff5a14e6f550da0c4923868f7e28844be223 /libguile/dynwind.c | |
parent | 61aab1c3755a97390fc8e365fbd4a6b1a4f80978 (diff) | |
download | guile-98241dc53fc66ec86c01b9eeea426def2f787cec.tar.gz |
Revert "Change dynwind flag enums to #defines, for greater portability"
This reverts commit b25aa0b9373d2798469e0fe999cd915e8beedc4f.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 8e87f6098..b34f9bef3 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -154,7 +154,7 @@ static scm_t_bits tc16_winder; #define WINDER_MARK_P(w) (SCM_SMOB_FLAGS(w) & WINDER_F_MARK) void -scm_dynwind_begin (int flags) +scm_dynwind_begin (scm_t_dynwind_flags flags) { SCM f; SCM_NEWSMOB (f, tc16_frame, 0); @@ -192,7 +192,8 @@ scm_dynwind_end (void) } void -scm_dynwind_unwind_handler (void (*proc) (void *), void *data, int flags) +scm_dynwind_unwind_handler (void (*proc) (void *), void *data, + scm_t_wind_flags flags) { SCM w; SCM_NEWSMOB2 (w, tc16_winder, (scm_t_bits) proc, (scm_t_bits) data); @@ -202,7 +203,8 @@ scm_dynwind_unwind_handler (void (*proc) (void *), void *data, int flags) } void -scm_dynwind_rewind_handler (void (*proc) (void *), void *data, int flags) +scm_dynwind_rewind_handler (void (*proc) (void *), void *data, + scm_t_wind_flags flags) { SCM w; SCM_NEWSMOB2 (w, tc16_winder, (scm_t_bits) proc, (scm_t_bits) data); @@ -213,7 +215,8 @@ scm_dynwind_rewind_handler (void (*proc) (void *), void *data, int flags) } void -scm_dynwind_unwind_handler_with_scm (void (*proc) (SCM), SCM data, int flags) +scm_dynwind_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); @@ -223,7 +226,8 @@ scm_dynwind_unwind_handler_with_scm (void (*proc) (SCM), SCM data, int flags) } void -scm_dynwind_rewind_handler_with_scm (void (*proc) (SCM), SCM data, int flags) +scm_dynwind_rewind_handler_with_scm (void (*proc) (SCM), SCM data, + scm_t_wind_flags flags) { SCM w; SCM_NEWSMOB2 (w, tc16_winder, (scm_t_bits) proc, SCM_UNPACK (data)); |