summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r--libguile/gc-card.c4
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),