summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2004-03-28 13:55:03 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2004-03-28 13:55:03 +0000
commit702551e6cc41e90745ca5f8626956ecab46c41c9 (patch)
tree235ad8bc5db51683904a1dd730ea3857c0ffaa95 /libguile/debug.c
parent88a7ae1f6818b68bc72a4bb8763b3299c69c4988 (diff)
downloadguile-702551e6cc41e90745ca5f8626956ecab46c41c9.tar.gz
* gc.h (SCM_GC_CELL_TYPE): SCM_GC_CELL_TYPE uses SCM_GC_CELL_OBJECT.
* 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.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index 2ec0a0c8c..01bf656eb 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -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);
}