mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Some SCM/scm_bits_t type strictness fixes.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-07 10:41:39 +00:00
parent e94e3f21d6
commit 451e591cdd
5 changed files with 39 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/debug.c
View file

@ -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