summaryrefslogtreecommitdiff
path: root/libguile/dynwind.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r--libguile/dynwind.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c
index 24d2e415f..f0777ab92 100644
--- a/libguile/dynwind.c
+++ b/libguile/dynwind.c
@@ -140,11 +140,11 @@ SCM_DEFINE (scm_dynamic_wind, "dynamic-wind", 3, 0, 0,
*/
#define SCM_GUARDSP(obj) SCM_TYP16_PREDICATE (tc16_guards, obj)
-#define SCM_BEFORE_GUARD(obj) ((scm_guard_t) SCM_CELL_WORD (obj, 1))
-#define SCM_AFTER_GUARD(obj) ((scm_guard_t) SCM_CELL_WORD (obj, 2))
+#define SCM_BEFORE_GUARD(obj) ((scm_t_guard) SCM_CELL_WORD (obj, 1))
+#define SCM_AFTER_GUARD(obj) ((scm_t_guard) SCM_CELL_WORD (obj, 2))
#define SCM_GUARD_DATA(obj) ((void *) SCM_CELL_WORD (obj, 3))
-static scm_bits_t tc16_guards;
+static scm_t_bits tc16_guards;
static int
guards_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
@@ -156,16 +156,16 @@ guards_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
}
SCM
-scm_internal_dynamic_wind (scm_guard_t before,
- scm_inner_t inner,
- scm_guard_t after,
+scm_internal_dynamic_wind (scm_t_guard before,
+ scm_t_inner inner,
+ scm_t_guard after,
void *inner_data,
void *guard_data)
{
SCM guards, ans;
before (guard_data);
- SCM_NEWSMOB3 (guards, tc16_guards, (scm_bits_t) before,
- (scm_bits_t) after, (scm_bits_t) guard_data);
+ SCM_NEWSMOB3 (guards, tc16_guards, (scm_t_bits) before,
+ (scm_t_bits) after, (scm_t_bits) guard_data);
scm_dynwinds = scm_acons (guards, SCM_BOOL_F, scm_dynwinds);
ans = inner (inner_data);
scm_dynwinds = SCM_CDR (scm_dynwinds);