diff options
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c index a458cbaf0..2f57736b3 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -193,8 +193,8 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) } break; case scm_tc7_string: - scm_gc_free (SCM_STRING_CHARS (scmptr), - SCM_STRING_LENGTH (scmptr) + 1, "string"); + scm_gc_free (SCM_I_STRING_CHARS (scmptr), + SCM_I_STRING_LENGTH (scmptr) + 1, "string"); break; case scm_tc7_symbol: scm_gc_free (SCM_SYMBOL_CHARS (scmptr), |