diff options
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 3 |
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); |