diff options
-rw-r--r-- | libguile/gc-malloc.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c index 0e60ebade..669f7894b 100644 --- a/libguile/gc-malloc.c +++ b/libguile/gc-malloc.c @@ -205,10 +205,8 @@ scm_gc_malloc (size_t size, const char *what) void * scm_gc_calloc (size_t size, const char *what) { - void *ptr = scm_gc_malloc (size, what); - if (size) - memset (ptr, 0x0, size); - return ptr; + /* `GC_MALLOC ()' always returns a zeroed buffer. */ + return scm_gc_malloc (size, what); } |