diff options
Diffstat (limited to 'libguile/eq.c')
-rw-r--r-- | libguile/eq.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eq.c b/libguile/eq.c index 7f368ed1a..fa9dcdebc 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -47,7 +47,7 @@ SCM_DEFINE1 (scm_eq_p, "eq?", scm_tc7_rpsubr, "@code{eqv?}.") #define FUNC_NAME s_scm_eq_p { - return scm_from_bool (SCM_EQ_P (x, y)); + return scm_from_bool (scm_is_eq (x, y)); } #undef FUNC_NAME @@ -71,7 +71,7 @@ SCM_PRIMITIVE_GENERIC_1 (scm_eqv_p, "eqv?", scm_tc7_rpsubr, "and inexact numbers.") #define FUNC_NAME s_scm_eqv_p { - if (SCM_EQ_P (x, y)) + if (scm_is_eq (x, y)) return SCM_BOOL_T; if (SCM_IMP (x)) return SCM_BOOL_F; @@ -141,7 +141,7 @@ SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "equal?", scm_tc7_rpsubr, SCM_CHECK_STACK; tailrecurse: SCM_TICK; - if (SCM_EQ_P (x, y)) + if (scm_is_eq (x, y)) return SCM_BOOL_T; if (SCM_IMP (x)) return SCM_BOOL_F; |