File tree 1 file changed +3
-2
lines changed
1 file changed +3
-2
lines changed Original file line number Diff line number Diff line change 90
90
{
91
91
if (ANY_SERIES (value ) || IS_MAP (value ) || IS_BITSET (value ))
92
92
Protect_Series (value , flags );
93
- else if (ANY_OBJECT (value ))
93
+ else if (IS_OBJECT ( value ) || IS_MODULE (value ))
94
94
Protect_Object (value , flags );
95
95
}
96
96
@@ -813,11 +813,12 @@ enum {
813
813
REBVAL * blk = VAL_BLK_DATA (D_ARG (2 ));
814
814
REBVAL * result ;
815
815
REBOOL all = D_REF (5 );
816
+ REBOOL is_case = D_REF (6 );
816
817
REBOOL found = FALSE;
817
818
818
819
// Find value in case block...
819
820
for (; NOT_END (blk ); blk ++ ) {
820
- if (!IS_BLOCK (blk ) && 0 == Cmp_Value (DS_ARG (1 ), blk , FALSE )) { // avoid stack move
821
+ if (!IS_BLOCK (blk ) && 0 == Cmp_Value (DS_ARG (1 ), blk , is_case )) { // avoid stack move
821
822
// Skip forward to block...
822
823
for (; !IS_BLOCK (blk ) && NOT_END (blk ); blk ++ );
823
824
if (IS_END (blk )) break ;
You can’t perform that action at this time.
0 commit comments