CHANGE: don't allow binary input for set operations (does not work an…

…yway)

related to: Oldes/Rebol-issues#1978

src/boot/natives.reb

@@ -453,43 +453,43 @@ entab: native [
 
 difference: native [
 	{Returns the special difference of two values.}
-	set1 [block! string! binary! bitset! date! typeset! map!] "First data set"
-	set2 [block! string! binary! bitset! date! typeset! map!] "Second data set"
+	set1 [block! string! bitset! date! typeset! map!] "First data set"
+	set2 [block! string! bitset! date! typeset! map!] "Second data set"
 	/case {Uses case-sensitive comparison}
 	/skip {Treat the series as records of fixed size}
 	size [integer!]
 ]
 
 exclude: native [
 	{Returns the first data set less the second data set.}
-	set1 [block! string! binary! bitset! typeset! map!] "First data set"
-	set2 [block! string! binary! bitset! typeset! map!] "Second data set"
+	set1 [block! string! bitset! typeset! map!] "First data set"
+	set2 [block! string! bitset! typeset! map!] "Second data set"
 	/case {Uses case-sensitive comparison}
 	/skip {Treat the series as records of fixed size}
 	size [integer!]
 ]
 
 intersect: native [
 	{Returns the intersection of two data sets.}
-	set1 [block! string! binary! bitset! typeset! map!] "first set"
-	set2 [block! string! binary! bitset! typeset! map!] "second set"
+	set1 [block! string! bitset! typeset! map!] "first set"
+	set2 [block! string! bitset! typeset! map!] "second set"
 	/case {Uses case-sensitive comparison}
 	/skip {Treat the series as records of fixed size}
 	size [integer!]
 ]
 
 union: native [
 	{Returns the union of two data sets.}
-	set1 [block! string! binary! bitset! typeset! map!] "first set"
-	set2 [block! string! binary! bitset! typeset! map!] "second set"
+	set1 [block! string! bitset! typeset! map!] "first set"
+	set2 [block! string! bitset! typeset! map!] "second set"
 	/case {Use case-sensitive comparison}
 	/skip {Treat the series as records of fixed size}
 	size [integer!]
 ]
 
 unique: native [
 	{Returns the data set with duplicates removed.}
-	set1 [block! string! binary! bitset! typeset! map!]
+	set1 [block! string! bitset! typeset! map!]
 	/case  {Use case-sensitive comparison (except bitsets)}
 	/skip {Treat the series as records of fixed size}
 	size [integer!]

src/core/n-sets.c

@@ -133,9 +133,11 @@ enum {
 		RESET_TAIL(retser); // required - allow reuse
 		break;
 
-	case REB_BINARY:
-		cased = TRUE;
-		SET_TYPE(D_RET, REB_BINARY);
+	//case REB_BINARY:
+	//!! Binary  input is broken, so better to turn it of for now! !!//
+	//!! https://github.com/Oldes/Rebol-issues/issues/1978         !!//
+	//	cased = TRUE;
+	//	SET_TYPE(D_RET, REB_BINARY);
 	case REB_STRING:
 		i = VAL_LEN(val1);
 		// Setup result block: