eq? and eqv? return true when the pointers are equal
This commit is contained in:
parent
09fc4b018e
commit
d3ed7bce53
|
@ -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);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue