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

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

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

revision 1.75 by dirk, Thu Sep 18 20:55:40 2003 UTC revision 1.76 by mvo, Tue Nov 18 19:59:51 2003 UTC
# Line 48  SCM scm_class_boolean, scm_class_char, s Line 48  SCM scm_class_boolean, scm_class_char, s
48  SCM scm_class_procedure, scm_class_string, scm_class_symbol;  SCM scm_class_procedure, scm_class_string, scm_class_symbol;
49  SCM scm_class_procedure_with_setter, scm_class_primitive_generic;  SCM scm_class_procedure_with_setter, scm_class_primitive_generic;
50  SCM scm_class_vector, scm_class_null;  SCM scm_class_vector, scm_class_null;
51  SCM scm_class_integer, scm_class_real, scm_class_complex;  SCM scm_class_integer, scm_class_real, scm_class_complex, scm_class_fraction;
52  SCM scm_class_unknown;  SCM scm_class_unknown;
53    
54  SCM *scm_port_class = 0;  SCM *scm_port_class = 0;
# Line 110  SCM_DEFINE (scm_class_of, "class-of", 1, Line 110  SCM_DEFINE (scm_class_of, "class-of", 1,
110              return scm_class_real;              return scm_class_real;
111            case scm_tc16_complex:            case scm_tc16_complex:
112              return scm_class_complex;              return scm_class_complex;
113              case scm_tc16_fraction:
114                return scm_class_fraction;
115            }            }
116          case scm_tc7_asubr:          case scm_tc7_asubr:
117          case scm_tc7_subr_0:          case scm_tc7_subr_0:

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

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