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; |
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: |