summaryrefslogtreecommitdiff
path: root/libguile/gc-mark.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r--libguile/gc-mark.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c
index 456cb37b0..cb966c9f3 100644
--- a/libguile/gc-mark.c
+++ b/libguile/gc-mark.c
@@ -105,7 +105,7 @@ scm_mark_all (void)
SCM l = SCM_HASHTABLE_BUCKETS (scm_gc_registered_roots)[i];
for (; !SCM_NULLP (l); l = SCM_CDR (l))
{
- SCM *p = (SCM *) (scm_num2long (SCM_CAAR (l), 0, NULL));
+ SCM *p = (SCM *) (scm_to_ulong (SCM_CAAR (l)));
scm_gc_mark (*p);
}
}