summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-19 03:28:21 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-19 03:28:21 +0000
commitcfe66b727617ad4fa0c8a86335dd803d8f555db1 (patch)
tree820ad672f34b641584f5be2a37edc31337c2d058 /libguile/struct.c
parent495ffc6ec5095b834e5b00f250c7befe05b6c636 (diff)
downloadguile-cfe66b727617ad4fa0c8a86335dd803d8f555db1.tar.gz
* struct.c (scm_struct_free_light, scm_struct_free_standard,
scm_struct_free_entity): Use `scm_must_free' instead of `free'.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index 6e55635ac..b8ac3c85c 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -335,7 +335,7 @@ scm_struct_free_0 (scm_bits_t * vtable, scm_bits_t * data)
scm_sizet
scm_struct_free_light (scm_bits_t * vtable, scm_bits_t * data)
{
- free (data);
+ scm_must_free (data);
return vtable [scm_struct_i_size] & ~SCM_STRUCTF_MASK;
}
@@ -344,7 +344,7 @@ scm_struct_free_standard (scm_bits_t * vtable, scm_bits_t * data)
{
size_t n = (data[scm_struct_i_n_words] + scm_struct_n_extra_words)
* sizeof (scm_bits_t) + 7;
- free ((void *) data[scm_struct_i_ptr]);
+ scm_must_free ((void *) data[scm_struct_i_ptr]);
return n;
}
@@ -353,7 +353,7 @@ scm_struct_free_entity (scm_bits_t * vtable, scm_bits_t * data)
{
size_t n = (data[scm_struct_i_n_words] + scm_struct_entity_n_extra_words)
* sizeof (scm_bits_t) + 7;
- free ((void *) data[scm_struct_i_ptr]);
+ scm_must_free ((void *) data[scm_struct_i_ptr]);
return n;
}