eq? and eqv? return true when the pointers are equal

This commit is contained in:
Yuichi Nishiwaki 2013-11-09 13:41:11 +09:00
parent 09fc4b018e
commit d3ed7bce53
1 changed files with 2 additions and 2 deletions

View File

@ -207,7 +207,7 @@ pic_eq_p(pic_value x, pic_value y)
case PIC_TT_SYMBOL: case PIC_TT_SYMBOL:
return pic_sym(x) == pic_sym(y); return pic_sym(x) == pic_sym(y);
default: 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: case PIC_TT_INT:
return pic_int(x) == pic_int(y); return pic_int(x) == pic_int(y);
default: default:
return false; return pic_ptr(x) == pic_ptr(y);
} }
} }