diff options
Diffstat (limited to 'libguile/chars.c')
-rw-r--r-- | libguile/chars.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/chars.c b/libguile/chars.c index ea44ccfdc..d205cf6e4 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -42,7 +42,7 @@ SCM_DEFINE1 (scm_char_eq_p, "char=?", scm_tc7_rpsubr, { SCM_VALIDATE_CHAR (1, x); SCM_VALIDATE_CHAR (2, y); - return scm_from_bool (SCM_EQ_P (x, y)); + return scm_from_bool (scm_is_eq (x, y)); } #undef FUNC_NAME |