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

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

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

revision 1.70 by dirk, Sun May 4 08:36:56 2003 UTC revision 1.71 by dirk, Thu Sep 18 20:55:40 2003 UTC
# Line 2516  create_smob_classes (void) Line 2516  create_smob_classes (void)
2516    for (i = 0; i < 255; ++i)    for (i = 0; i < 255; ++i)
2517      scm_smob_class[i] = 0;      scm_smob_class[i] = 0;
2518    
   scm_smob_class[SCM_TC2SMOBNUM (scm_tc16_big)] = scm_class_integer;  
   scm_smob_class[SCM_TC2SMOBNUM (scm_tc16_real)] = scm_class_real;  
   scm_smob_class[SCM_TC2SMOBNUM (scm_tc16_complex)] = scm_class_complex;  
2519    scm_smob_class[SCM_TC2SMOBNUM (scm_tc16_keyword)] = scm_class_keyword;    scm_smob_class[SCM_TC2SMOBNUM (scm_tc16_keyword)] = scm_class_keyword;
2520    
2521    for (i = 0; i < scm_numsmob; ++i)    for (i = 0; i < scm_numsmob; ++i)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

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