From 451e591cdd87cc352a84e6bb28db9e0fca41b3fe Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Fri, 7 Apr 2000 10:41:39 +0000 Subject: Some SCM/scm_bits_t type strictness fixes. --- libguile/debug.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index 4f021dff4..237c018fc 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -117,7 +117,7 @@ with_traps_after (void *data) static SCM with_traps_inner (void *data) { - SCM thunk = (SCM) data; + SCM thunk = SCM_PACK (data); return scm_apply (thunk, SCM_EOL, SCM_EOL); } @@ -131,7 +131,7 @@ SCM_DEFINE (scm_with_traps, "with-traps", 1, 0, 0, return scm_internal_dynamic_wind (with_traps_before, with_traps_inner, with_traps_after, - (void *) thunk, + (void *) SCM_UNPACK (thunk), &trap_flag); } #undef FUNC_NAME -- cgit v1.2.3