Parent Directory | Revision Log | Patch
revision 1.46 by dirk, Sat Sep 6 08:50:26 2003 UTC | revision 1.47 by dirk, Thu Sep 18 20:55:40 2003 UTC | |
---|---|---|
# | Line 166 SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "e | Line 166 SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "e |
166 | { | { |
167 | default: | default: |
168 | break; | break; |
169 | case scm_tc7_number: | |
170 | switch SCM_TYP16 (x) | |
171 | { | |
172 | case scm_tc16_big: | |
173 | return scm_bigequal (x, y); | |
174 | case scm_tc16_real: | |
175 | return scm_real_equalp (x, y); | |
176 | case scm_tc16_complex: | |
177 | return scm_complex_equalp (x, y); | |
178 | } | |
179 | case scm_tc7_vector: | case scm_tc7_vector: |
180 | case scm_tc7_wvect: | case scm_tc7_wvect: |
181 | return scm_vector_equal_p (x, y); | return scm_vector_equal_p (x, y); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |