datas are equal? when they refer to the same pointer

This commit is contained in:
Yuichi Nishiwaki 2016-02-07 05:18:09 +09:00
parent d710fa3a11
commit e076a8f4e0
1 changed files with 3 additions and 0 deletions

View File

@ -118,6 +118,9 @@ internal_equal_p(pic_state *pic, pic_value x, pic_value y, int depth, khash_t(m)
}
return true;
}
case PIC_TT_DATA: {
return pic_data_ptr(x)->data == pic_data_ptr(y)->data;
}
default:
return false;
}