add mrb_float_p()

include/mruby/value.h

@@ -150,6 +150,7 @@ mrb_float_value(mrb_float f)
 #define mrb_symbol(o) (o).value.sym
 #define mrb_object(o) ((struct RBasic *) (o).value.p)
 #define mrb_fixnum_p(o) (mrb_type(o) == MRB_TT_FIXNUM)
+#define mrb_float_p(o) (mrb_type(o) == MRB_TT_FLOAT)
 #define mrb_undef_p(o) (mrb_type(o) == MRB_TT_UNDEF)
 #define mrb_nil_p(o)  (mrb_type(o) == MRB_TT_FALSE && !(o).value.i)
 #define mrb_test(o)   (mrb_type(o) != MRB_TT_FALSE)

src/numeric.c

@@ -878,7 +878,7 @@ static mrb_value
 bit_coerce(mrb_state *mrb, mrb_value x)
 {
     while (!mrb_fixnum_p(x)) {
-        if (mrb_type(x) == MRB_TT_FLOAT) {
+        if (mrb_float_p(x)) {
             mrb_raise(mrb, E_TYPE_ERROR, "can't convert Float into Integer");
         }
         x = mrb_to_int(mrb, x);