Skip to content

Commit e5442eb

Browse files
committed
FIX: fixed special case of pick bitset! integer!
``` false == pick (make bitset! [255 257]) 256 ```
1 parent 90ecb3d commit e5442eb

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/core/t-bitset.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -577,7 +577,7 @@
577577

578578
case A_PICK:
579579
case A_FIND:
580-
if (!Check_Bits(VAL_SERIES(value), arg, D_REF(ARG_FIND_CASE)))
580+
if (!Check_Bits(VAL_SERIES(value), arg,(action == A_FIND && D_REF(ARG_FIND_CASE)) ))
581581
#ifdef PICK_BITSET_AS_NONE
582582
return R_NONE;
583583
#else

0 commit comments

Comments
 (0)