conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'issue-146'

This commit is contained in:
Yuichi Nishiwaki 2014-06-26 00:58:41 +09:00
parent 846ee72ce4 33fcf33bd1
commit 6c8c46d295
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
include/picrin/value.h
View File

@ -444,6 +444,8 @@ pic_eq_p(pic_value x, pic_value y)
switch (pic_type(x)) { switch (pic_type(x)) {
case PIC_TT_NIL: case PIC_TT_NIL:
return true; return true;
case PIC_TT_BOOL:
return pic_vtype(x) == pic_vtype(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:
@ -460,6 +462,8 @@ pic_eqv_p(pic_value x, pic_value y)
switch (pic_type(x)) { switch (pic_type(x)) {
case PIC_TT_NIL: case PIC_TT_NIL:
return true; return true;
case PIC_TT_BOOL:
return pic_vtype(x) == pic_vtype(y);
case PIC_TT_SYMBOL: case PIC_TT_SYMBOL:
return pic_sym(x) == pic_sym(y); return pic_sym(x) == pic_sym(y);
case PIC_TT_FLOAT: case PIC_TT_FLOAT: