67 |
#undef FUNC_NAME |
#undef FUNC_NAME |
68 |
|
|
69 |
|
|
70 |
SCM_DEFINE1 (scm_eqv_p, "eqv?", scm_tc7_rpsubr, |
SCM_PRIMITIVE_GENERIC_1 (scm_eqv_p, "eqv?", scm_tc7_rpsubr, |
71 |
(SCM x, SCM y), |
(SCM x, SCM y), |
72 |
"The @code{eqv?} procedure defines a useful equivalence relation on objects.\n" |
"The @code{eqv?} procedure defines a useful equivalence relation on objects.\n" |
73 |
"Briefly, it returns @code{#t} if @var{x} and @var{y} should normally be\n" |
"Briefly, it returns @code{#t} if @var{x} and @var{y} should normally be\n" |
110 |
&& SCM_COMPLEX_IMAG (x) == SCM_COMPLEX_IMAG (y)); |
&& SCM_COMPLEX_IMAG (x) == SCM_COMPLEX_IMAG (y)); |
111 |
} |
} |
112 |
} |
} |
113 |
return SCM_BOOL_F; |
if (SCM_UNPACK (g_scm_eqv_p)) |
114 |
|
return scm_call_generic_2 (g_scm_eqv_p, x, y); |
115 |
|
else |
116 |
|
return SCM_BOOL_F; |
117 |
} |
} |
118 |
#undef FUNC_NAME |
#undef FUNC_NAME |
119 |
|
|