/[guile]/guile/guile-core/libguile/guardians.c
ViewVC logotype

Diff of /guile/guile-core/libguile/guardians.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by mvo, Sun Nov 25 15:21:07 2001 UTC revision 1.42 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 175  guardian_mark (SCM ptr) Line 175  guardian_mark (SCM ptr)
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    
# Line 330  SCM_DEFINE (scm_make_guardian, "make-gua Line 330  SCM_DEFINE (scm_make_guardian, "make-gua
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;

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26