diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-07 10:41:39 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-07 10:41:39 +0000 |
commit | 451e591cdd87cc352a84e6bb28db9e0fca41b3fe (patch) | |
tree | 6d998ff68503a20cedc2b47070594bad264910aa /libguile/debug.c | |
parent | e94e3f21d68575cded1b03fb07a66ae622b321e6 (diff) | |
download | guile-451e591cdd87cc352a84e6bb28db9e0fca41b3fe.tar.gz |
Some SCM/scm_bits_t type strictness fixes.
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 |