From 33fcf33bd1faedac4539eb2382cdd1dcfd8d7e26 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Thu, 26 Jun 2014 00:57:12 +0900 Subject: [PATCH] fix #146 --- include/picrin/value.h | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/include/picrin/value.h b/include/picrin/value.h index a569cc71..d6a07e20 100644 --- a/include/picrin/value.h +++ b/include/picrin/value.h @@ -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: