fix #146

2014-06-26 00:57:12 +09:00
parent 846ee72ce4
commit 33fcf33bd1
1 changed files with 4 additions and 0 deletions
@@ -444,6 +444,8 @@ pic_eq_p(pic_value x, pic_value y)
  switch (pic_type(x)) {
  case PIC_TT_NIL:
    return true;
+  case PIC_TT_BOOL:
+    return pic_vtype(x) == pic_vtype(y);
  case PIC_TT_SYMBOL:
    return pic_sym(x) == pic_sym(y);
  default:
@@ -460,6 +462,8 @@ pic_eqv_p(pic_value x, pic_value y)
  switch (pic_type(x)) {
  case PIC_TT_NIL:
    return true;
+  case PIC_TT_BOOL:
+    return pic_vtype(x) == pic_vtype(y);
  case PIC_TT_SYMBOL:
    return pic_sym(x) == pic_sym(y);
  case PIC_TT_FLOAT: