175 |
static size_t |
static size_t |
176 |
guardian_free (SCM ptr) |
guardian_free (SCM ptr) |
177 |
{ |
{ |
178 |
scm_must_free (GUARDIAN_DATA (ptr)); |
scm_gc_free (GUARDIAN_DATA (ptr), sizeof (t_guardian), "guardian"); |
179 |
return sizeof (t_guardian); |
return 0; |
180 |
} |
} |
181 |
|
|
182 |
|
|
330 |
"paper still (mostly) accurately describes the interface).") |
"paper still (mostly) accurately describes the interface).") |
331 |
#define FUNC_NAME s_scm_make_guardian |
#define FUNC_NAME s_scm_make_guardian |
332 |
{ |
{ |
333 |
t_guardian *g = SCM_MUST_MALLOC_TYPE (t_guardian); |
t_guardian *g = scm_gc_malloc (sizeof (t_guardian), "guardian"); |
334 |
SCM z1 = scm_cons (SCM_BOOL_F, SCM_EOL); |
SCM z1 = scm_cons (SCM_BOOL_F, SCM_EOL); |
335 |
SCM z2 = scm_cons (SCM_BOOL_F, SCM_EOL); |
SCM z2 = scm_cons (SCM_BOOL_F, SCM_EOL); |
336 |
SCM z; |
SCM z; |