@@ -2460,7 +2460,6 @@ recursive_equal(ary1, ary2)
2460
2460
{
2461
2461
long i ;
2462
2462
2463
- if (rb_inspecting_p (ary1 )) return Qfalse ;
2464
2463
for (i = 0 ; i < RARRAY (ary1 )-> len ; i ++ ) {
2465
2464
if (!rb_equal (rb_ary_elt (ary1 , i ), rb_ary_elt (ary2 , i )))
2466
2465
return Qfalse ;
@@ -2494,6 +2493,7 @@ rb_ary_equal(ary1, ary2)
2494
2493
return rb_equal (ary2 , ary1 );
2495
2494
}
2496
2495
if (RARRAY (ary1 )-> len != RARRAY (ary2 )-> len ) return Qfalse ;
2496
+ if (rb_inspecting_p (ary1 )) return Qfalse ;
2497
2497
return rb_protect_inspect (recursive_equal , ary1 , ary2 );
2498
2498
}
2499
2499
@@ -2503,7 +2503,6 @@ recursive_eql(ary1, ary2)
2503
2503
{
2504
2504
long i ;
2505
2505
2506
- if (rb_inspecting_p (ary1 )) return Qfalse ;
2507
2506
for (i = 0 ; i < RARRAY (ary1 )-> len ; i ++ ) {
2508
2507
if (!rb_eql (rb_ary_elt (ary1 , i ), rb_ary_elt (ary2 , i )))
2509
2508
return Qfalse ;
@@ -2526,6 +2525,7 @@ rb_ary_eql(ary1, ary2)
2526
2525
if (ary1 == ary2 ) return Qtrue ;
2527
2526
if (TYPE (ary2 ) != T_ARRAY ) return Qfalse ;
2528
2527
if (RARRAY (ary1 )-> len != RARRAY (ary2 )-> len ) return Qfalse ;
2528
+ if (rb_inspecting_p (ary1 )) return Qfalse ;
2529
2529
return rb_protect_inspect (recursive_eql , ary1 , ary2 );
2530
2530
}
2531
2531
@@ -2538,9 +2538,6 @@ recursive_hash(ary)
2538
2538
long i , h ;
2539
2539
VALUE n ;
2540
2540
2541
- if (rb_inspecting_p (ary )) {
2542
- return LONG2FIX (0 );
2543
- }
2544
2541
h = RARRAY (ary )-> len ;
2545
2542
for (i = 0 ; i < RARRAY (ary )-> len ; i ++ ) {
2546
2543
h = (h << 1 ) | (h < 0 ? 1 : 0 );
@@ -2562,6 +2559,9 @@ static VALUE
2562
2559
rb_ary_hash (ary )
2563
2560
VALUE ary ;
2564
2561
{
2562
+ if (rb_inspecting_p (ary )) {
2563
+ return LONG2FIX (0 );
2564
+ }
2565
2565
return rb_protect_inspect (recursive_hash , ary , 0 );
2566
2566
}
2567
2567
@@ -2599,7 +2599,6 @@ recursive_cmp(ary1, ary2)
2599
2599
{
2600
2600
long i , len ;
2601
2601
2602
- if (rb_inspecting_p (ary1 )) return Qfalse ;
2603
2602
len = RARRAY (ary1 )-> len ;
2604
2603
if (len > RARRAY (ary2 )-> len ) {
2605
2604
len = RARRAY (ary2 )-> len ;
@@ -2642,6 +2641,7 @@ rb_ary_cmp(ary1, ary2)
2642
2641
2643
2642
ary2 = to_ary (ary2 );
2644
2643
if (ary1 == ary2 ) return INT2FIX (0 );
2644
+ if (rb_inspecting_p (ary1 )) return INT2FIX (0 );
2645
2645
v = rb_protect_inspect (recursive_cmp , ary1 , ary2 );
2646
2646
if (v != Qundef ) return v ;
2647
2647
len = RARRAY (ary1 )-> len - RARRAY (ary2 )-> len ;
0 commit comments