diff options
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 4 |
1 files changed, 2 insertions, 2 deletions
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 |