diff options
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r-- | libguile/srfi-4.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c index de1130fb3..302414364 100644 --- a/libguile/srfi-4.c +++ b/libguile/srfi-4.c @@ -28,6 +28,7 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" +#include "libguile/boehm-gc.h" #include "libguile/srfi-4.h" #include "libguile/bitvectors.h" #include "libguile/bytevectors.h" @@ -281,6 +282,14 @@ uvec_assert (int type, SCM obj) scm_wrong_type_arg_msg (NULL, 0, obj, uvec_names[type]); } +/* Invoke free(3) on DATA, a user-provided buffer passed to one of the + `scm_take_' functions. */ +static void +free_user_data (GC_PTR data, GC_PTR unused) +{ + free (data); +} + static SCM take_uvec (int type, void *base, size_t len) { |