From 467035750e83a2d532bd8c2c5fb9fd78c1810132 Mon Sep 17 00:00:00 2001 From: matz Date: Mon, 3 Feb 2003 08:45:26 +0000 Subject: * object.c (Init_Object): default Object#=== now calls "==" internally. * re.c (rb_reg_initialize_m): should honor option status of original regexp. * array.c (rb_ary_equal): ary2 should be T_ARRAY (no to_ary conversion). * array.c (rb_ary_eql): ditto. * string.c (rb_str_equal): str2 should be T_STRING (no to_str conversion). git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3435 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- array.c | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'array.c') diff --git a/array.c b/array.c index 7e039abf6a..2010e1306f 100644 --- a/array.c +++ b/array.c @@ -1563,10 +1563,7 @@ rb_ary_equal(ary1, ary2) long i; if (ary1 == ary2) return Qtrue; - if (TYPE(ary2) != T_ARRAY) { - ary2 = rb_check_array_type(ary2); - if (NIL_P(ary2)) return Qfalse; - } + if (TYPE(ary2) != T_ARRAY) return Qfalse; if (RARRAY(ary1)->len != RARRAY(ary2)->len) return Qfalse; for (i=0; ilen; i++) { if (!rb_equal(RARRAY(ary1)->ptr[i], RARRAY(ary2)->ptr[i])) @@ -1582,10 +1579,7 @@ rb_ary_eql(ary1, ary2) long i; if (ary1 == ary2) return Qtrue; - if (TYPE(ary2) != T_ARRAY) { - ary2 = rb_check_array_type(ary2); - if (NIL_P(ary2)) return Qfalse; - } + if (TYPE(ary2) != T_ARRAY) return Qfalse; if (RARRAY(ary1)->len != RARRAY(ary2)->len) return Qfalse; for (i=0; ilen; i++) { if (!rb_eql(RARRAY(ary1)->ptr[i], RARRAY(ary2)->ptr[i])) @@ -1898,7 +1892,6 @@ Init_Array() rb_define_method(rb_cArray, "==", rb_ary_equal, 1); rb_define_method(rb_cArray, "eql?", rb_ary_eql, 1); rb_define_method(rb_cArray, "hash", rb_ary_hash, 0); - rb_define_method(rb_cArray, "===", rb_ary_equal, 1); rb_define_method(rb_cArray, "[]", rb_ary_aref, -1); rb_define_method(rb_cArray, "[]=", rb_ary_aset, -1); -- cgit v1.2.3