Skip to content

Commit 9f6b349

Browse files
committed
FIX: allow to make bitset! from bitset!
fixes: Oldes/Rebol-issues#2420
1 parent d234395 commit 9f6b349

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

src/core/t-bitset.c

+4
Original file line numberDiff line numberDiff line change
@@ -594,6 +594,10 @@
594594

595595
case A_MAKE:
596596
case A_TO:
597+
if (IS_BITSET(arg)) {
598+
VAL_SERIES(arg) = Copy_Series_Value(arg);
599+
return R_ARG2;
600+
}
597601
// Determine size of bitset. Returns -1 for errors.
598602
len = Find_Max_Bit(arg);
599603
if (len < 0 || len > 0x0FFFFFFF) Trap_Arg(arg);

0 commit comments

Comments
 (0)