From 510b84702ed6b0f4a6b4b7c7fa4c21e2f3b25061 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sun, 20 Oct 2013 14:07:27 +0900 Subject: [PATCH] eq? compares symbol's ptr --- src/bool.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/bool.c b/src/bool.c index b2bab77e..889f70ce 100644 --- a/src/bool.c +++ b/src/bool.c @@ -12,7 +12,7 @@ pic_eq_p(pic_state *pic, pic_value x, pic_value y) case PIC_TT_NIL: return true; case PIC_TT_SYMBOL: - return strcmp(pic_symbol_ptr(x)->name, pic_symbol_ptr(y)->name) == 0; + return pic_symbol_ptr(x) == pic_symbol_ptr(y); default: return false; }