mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* gc.h (SCM_GC_CELL_TYPE): SCM_GC_CELL_TYPE uses SCM_GC_CELL_OBJECT.

Browse source 
* goops.h (SCM_NUMBER_OF_SLOTS): don't SCM_UNPACK the result.

* backtrace.c ("display_backtrace_body"): SCM_PACK before SCM_EQ_P
(display_frame): idem.
(display_backtrace_file_and_line): idem.

* tags.h (SCM_UNPACK): stricter typechecking on SCM_UNPACK
arguments.
This commit is contained in:
Han-Wen Nienhuys 2004-03-28 13:55:03 +00:00
parent 88a7ae1f68
commit 702551e6cc
7 changed files with 35 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/debug.c
View file

@ -87,7 +87,7 @@ with_traps_after (void *data)
static SCM
with_traps_inner (void *data)
{
SCM thunk = SCM_PACK (data);
SCM thunk = SCM_PACK ((scm_t_bits) data);
return scm_call_0 (thunk);
}