FIX: allow to make bitset! from bitset!

fixes: Oldes/Rebol-issues#2420
Oldes · Jun 8, 2020 · 9f6b349 · 9f6b349
1 parent d234395
commit 9f6b349
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/t-bitset.c b/src/core/t-bitset.c
@@ -594,6 +594,10 @@
 
 	case A_MAKE:
 	case A_TO:
+		if (IS_BITSET(arg)) {
+			VAL_SERIES(arg) = Copy_Series_Value(arg);
+			return R_ARG2;
+		}
 		// Determine size of bitset. Returns -1 for errors.
 		len = Find_Max_Bit(arg);
 		if (len < 0 || len > 0x0FFFFFFF) Trap_Arg(arg);