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

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

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

revision 1.57 by mvo, Sat Apr 5 19:10:22 2003 UTC revision 1.58 by dirk, Thu Sep 18 20:55:40 2003 UTC
# Line 448  scm_make_smob (scm_t_bits tc) Line 448  scm_make_smob (scm_t_bits tc)
448  }  }
449    
450    
451  /* {Initialization for i/o types, float, bignum, the type of free cells}  /* {Initialization for the type of free cells}
452   */   */
453    
454  static int  static int
# Line 491  scm_smob_prehistory () Line 491  scm_smob_prehistory ()
491        scm_smobs[i].gsubr_type = 0;        scm_smobs[i].gsubr_type = 0;
492      }      }
493    
494    /* WARNING: These scm_make_smob_type calls must be done in this order */    /* WARNING: This scm_make_smob_type call must be done first.  */
495    tc = scm_make_smob_type ("free", 0);    tc = scm_make_smob_type ("free", 0);
496    scm_set_smob_print (tc, free_print);    scm_set_smob_print (tc, free_print);
   
   tc = scm_make_smob_type ("big", 0);  /* freed in gc */  
   scm_set_smob_print (tc, scm_bigprint);  
   scm_set_smob_equalp (tc, scm_bigequal);  
   
   tc = scm_make_smob_type ("real", 0);  /* freed in gc */  
   scm_set_smob_print (tc, scm_print_real);  
   scm_set_smob_equalp (tc, scm_real_equalp);  
   
   tc = scm_make_smob_type ("complex", 0);  /* freed in gc */  
   scm_set_smob_print (tc, scm_print_complex);  
   scm_set_smob_equalp (tc, scm_complex_equalp);  
497  }  }
498    
499  /*  /*

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

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