Parent Directory | Revision Log | Patch
revision 1.74 by dirk, Tue Sep 16 17:37:56 2003 UTC | revision 1.75 by dirk, Thu Sep 18 20:55:40 2003 UTC | |
---|---|---|
# | Line 102 SCM_DEFINE (scm_class_of, "class-of", 1, | Line 102 SCM_DEFINE (scm_class_of, "class-of", 1, |
102 | return scm_class_vector; | return scm_class_vector; |
103 | case scm_tc7_string: | case scm_tc7_string: |
104 | return scm_class_string; | return scm_class_string; |
105 | case scm_tc7_number: | |
106 | switch SCM_TYP16 (x) { | |
107 | case scm_tc16_big: | |
108 | return scm_class_integer; | |
109 | case scm_tc16_real: | |
110 | return scm_class_real; | |
111 | case scm_tc16_complex: | |
112 | return scm_class_complex; | |
113 | } | |
114 | case scm_tc7_asubr: | case scm_tc7_asubr: |
115 | case scm_tc7_subr_0: | case scm_tc7_subr_0: |
116 | case scm_tc7_subr_1: | case scm_tc7_subr_1: |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |