fix #146
This commit is contained in:
parent
846ee72ce4
commit
33fcf33bd1
|
@ -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:
|
||||||
|
|
Loading…
Reference in New Issue