summaryrefslogtreecommitdiff
path: root/libguile/gc-malloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-malloc.c')
-rw-r--r--libguile/gc-malloc.c14
1 files changed, 13 insertions, 1 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c
index 2720ed8d8..86f2b50c1 100644
--- a/libguile/gc-malloc.c
+++ b/libguile/gc-malloc.c
@@ -142,7 +142,19 @@ scm_malloc (size_t sz)
{
return scm_realloc (NULL, sz);
}
-
+
+/*
+ Hmm. Should we use the C convention for arguments (i.e. N_ELTS,
+ SIZEOF_ELT)? --hwn
+ */
+void *
+scm_calloc (size_t sz)
+{
+ void * ptr = scm_realloc (NULL, sz);
+ memset (ptr, 0x0, sz);
+ return ptr;
+}
+
char *
scm_strndup (const char *str, size_t n)