diff options
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r-- | libguile/fluids.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c index 55910b0a5..282718e65 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -160,7 +160,7 @@ new_fluid (SCM init) SCM_SET_CELL_WORD_0 (fluid, (scm_tc7_fluid | (n << 8))); GC_GENERAL_REGISTER_DISAPPEARING_LINK (&allocated_fluids[n], - SCM_HEAP_OBJECT_BASE (fluid)); + SCM2PTR (fluid)); scm_dynwind_end (); |