From d3ed7bce53b741d4eaaa0cd6ae1633cbfcbd688b Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 9 Nov 2013 13:41:11 +0900 Subject: [PATCH] eq? and eqv? return true when the pointers are equal --- src/value.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/value.c b/src/value.c index 8d133d7f..49536b34 100644 --- a/src/value.c +++ b/src/value.c @@ -207,7 +207,7 @@ pic_eq_p(pic_value x, pic_value y) case PIC_TT_SYMBOL: return pic_sym(x) == pic_sym(y); default: - return false; + return pic_ptr(x) == pic_ptr(y); } } @@ -227,7 +227,7 @@ pic_eqv_p(pic_value x, pic_value y) case PIC_TT_INT: return pic_int(x) == pic_int(y); default: - return false; + return pic_ptr(x) == pic_ptr(y); } }