summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index 947bcb498..1640e17bc 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -115,7 +115,8 @@ make_stringbuf (size_t len)
}
else
{
- char *mem = scm_gc_malloc (len+1, "string");
+ /* FIXME: Create an `scm_gc' equivalent to `GC_MALLOC_ATOMIC ()'. */
+ char *mem = GC_MALLOC_ATOMIC (len + 1);/* scm_gc_malloc (len+1, "string"); */
mem[len] = '\0';
return scm_double_cell (STRINGBUF_TAG, (scm_t_bits) mem,
(scm_t_bits) len, (scm_t_bits) 0);