diff options
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r-- | libguile/gc-mark.c | 2 |
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); } } |