summaryrefslogtreecommitdiff
path: root/object.c
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-10-18 23:54:34 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-10-18 23:54:34 +0000
commitf11f8e5e92611f6e5aa4f22410d34cd35b258eaf (patch)
treece59b6b7fd3a5e60bee6a1a88ad5ffa54b9ada8f /object.c
parente54022001d84d1fa9fa07ecf9faddc7aba40a432 (diff)
* intern.h, object.c (rb_class_inherited_p): export.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7067 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'object.c')
-rw-r--r--object.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/object.c b/object.c
index d8b0a7f..9f1d9f1 100644
--- a/object.c
+++ b/object.c
@@ -1308,8 +1308,8 @@ rb_mod_eqq(mod, arg)
*
*/
-static VALUE
-rb_mod_le(mod, arg)
+VALUE
+rb_class_inherited_p(mod, arg)
VALUE mod, arg;
{
VALUE start = mod;
@@ -1358,7 +1358,7 @@ rb_mod_lt(mod, arg)
VALUE mod, arg;
{
if (mod == arg) return Qfalse;
- return rb_mod_le(mod, arg);
+ return rb_class_inherited_p(mod, arg);
}
@@ -1386,7 +1386,7 @@ rb_mod_ge(mod, arg)
rb_raise(rb_eTypeError, "compared with non class/module");
}
- return rb_mod_le(arg, mod);
+ return rb_class_inherited_p(arg, mod);
}
/*
@@ -1434,7 +1434,7 @@ rb_mod_cmp(mod, arg)
return Qnil;
}
- cmp = rb_mod_le(mod, arg);
+ cmp = rb_class_inherited_p(mod, arg);
if (NIL_P(cmp)) return Qnil;
if (cmp) {
return INT2FIX(-1);
@@ -2616,7 +2616,7 @@ Init_Object()
rb_define_method(rb_cModule, "==", rb_obj_equal, 1);
rb_define_method(rb_cModule, "<=>", rb_mod_cmp, 1);
rb_define_method(rb_cModule, "<", rb_mod_lt, 1);
- rb_define_method(rb_cModule, "<=", rb_mod_le, 1);
+ rb_define_method(rb_cModule, "<=", rb_class_inherited_p, 1);
rb_define_method(rb_cModule, ">", rb_mod_gt, 1);
rb_define_method(rb_cModule, ">=", rb_mod_ge, 1);
rb_define_method(rb_cModule, "initialize_copy", rb_mod_init_copy, 1);